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INTERNALS 


The authoritative Insider's guide 


Essential guide to learning 
the inside information on the 
ATARI ST. Written for the 
user who wants thorough 
and complete descriptions of 
the inner workings of the ST. 





AIARIACSU 


GEM Programmers’ Reference 


Detailed descriptions of the 
sound and graphics chips, 


A complete gulde to 
programming the ST: 
using the Graphics 
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the internal hardware, the 
Centronics and RS-232 
ports, GEM, important system 
addresses and plenty more. 
Also included is a complete 
documented BIOS assembly 
listing. This indispensible 
reference is a_ required 
addition to your ATARI ST 
library. 450 pages. $19.95 


MACHINE LANGUAGE 
Program in the fastest 
language for your Atari 
ST. Learn the 68000 
assembly language, its 
numbering system, use 
of registers, the structure 
& important details of the 
instruction set, and use of 
the internal system 
routines. 280pp $19.95 


TRICKS & TIPS 
Treasure trove of fascin- 
ating tips and tricks 
allows you to make full 
use of your ATARI ST. 
Fantastic graphics, refin- 
ing programs in BASIC, 
assembler, and C. 
Includes program listings 
for RAM disk, printer 
spooler and more. $19.95 


GRAPHICS & SOUND 
A comprehensive hand- 
book showing you how to 
create fascinating graph- 
ics and suprising music 
and sound from the 
ATARI ST. See and hear 
what sights and sounds 
that you're capable of 
producing from your 
ATARI ST. $19.95 


Environment 


Manager 
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LOGO 
Take control of your 
ATARI ST by learning 
LOGO-the easy-to-use, 
yet powerful language. 
Topics covered include 
structured programming, 
graphic movement, file 
handling and more. An 
excellent book for kids as 
well as adults. $19.95 


PArNCN Be 





For the serious programmer 
in need of detailed inform- 
ation on the GEM operating 
system. Written especially for 
the Atari ST with an easy-to- 
understand format that even 
beginners will be able to 
follow. All GEM routines and 
examples are written in C 
and 68000 assembly 
language. Covers working 
with the mouse, icons, Virtual 
Device Interface (VDI), 
Application Environment 
Services (AES) and the 
Graphics Device Operating 
System. Required reading for 
the serious programmer 
intrested in understanding 
the ST. 450 pages. $19.95 


PEEKS & POKES 
Enhance your programs 
with the examples found 
within this book. Explores 
using the different lang- 
uages BASIC, C, LOGO 
and machine language, 
using various interfaces, 
memory usage, reading 
and saving from and to 
disk, more. $19.95 


PRESENTING THE ST 
Gives you an in-depth 
look at this sensational 
new computer. Discusses 
the architecture of the 
ST, working with GEM, 
the mouse, operating 
system, all the various 
interfaces, the 68000 
chip and its instructions, 
LOGO. $16.95 


Abacusiiiii::| Software 


P.O. Box 7219 Grand Rapids, Ml 49510 - Telex 709-101 - Phone (616) 241-5510 


Optional diskettes are available for all book titles at $14.95 

Call now for the name of your nearest dealer. Or order directly from ABACUS with your MasterCard, VISA, or 
Amex card. Add $4.00 per order for postage and handling. Foreign add $10.00 per book. Other software and 
books coming soon. Call or write for free catalog. Dealer inquiries welcome—over 1200 dealers nationwide. 
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Don your asbestos suit; you'll need it as you attempt to defeat the head sulphur slinger. 


BMD) wea wie Oh gin ees tae es wae oe James Luczak 71ST 
A tutorial to teach you how to access GEM’s AES library through ST BASIC. 





KEVIEWS 


Brataccas (Psygnosis Limited) ........... Clayton Walnum 76ST 
Playing this graphic adventure is like stepping right into a comic book. 


MI-SriTiMichier) .404s¢sa0esmeu reyes Arthur Leyenberger 80ST 


We review the full-featured telecommunications program from Michlron. 
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What's new for 520ST users. 
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This month, Clayton takes an in-depth look at functions and loop structures. 
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Graphic Arts 


The Next Step in the Evolution of Software 


Imagine combining the functions of 
Computer Aided Design (CAD), Bus- 
iness Graphics, free-hand drawing, _ 
and typesetting programs into re 
package. Include functions offa $ 
simple spreadsheet for data maw he: 
ipulation. Add abilities of a simple ® ey 
word processor for text annotation” — 
in various fonts, sizes, and rota- 
tions. Mix all these features into a 
single package instead of “inte- 
grating” separate packages. The. 
result is a new breed of softwar: 
Graphic Arts. The only graphic arts a 
program available: The Graphic <7 
Artist. 






The Graphic Artist is menu, macro, 
command, and language driven. 
Youread correctly. Menus forbegin- 
ners, commands and macros for 
experts. And an optional language 
interpreter for creating custom 
applications. 


Support for dot matrix printers, 
color plotters, and laser printers is 


standard, of course. 


Impressed? Wait until you see a 
demo at a dealer near you! 


The Graphic Artist 


Graphic Arts has finally arrived. 


PROGRESSIVE 

COMPUTER x Language $245 additional 

APPLICATIONS 
2002 McAuliffe Drive The Graphic Artist is a trademark of Progressive Computer 
Rockville, Maryland 90851 Applications, Inc. 520ST is a trademark of Atari Corp. 


(301) 340-8398 
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A checksum program 
for the 520ST 





by Clayton Walnum 





This issue marks the first appearance, within ANA- 
LOG Computing’s pages, of a BASIC program for the 
520ST. Those of you who spend a good deal of your 
free time typing in the listings from the magazine 
_ have surely grown accustomed to seeing (and, we 
hope, using) the checksum data that follows each BA- 
SIC listing. One of the first projects I undertook when 
ST BASIC made its appearance was to make sure that 
this tradition continued. The result is ST-CHECK—a 
typing validator for the 520ST computer. 

What good is it? 

Typing in a program listing can be a frustrating 
and time-consuming task. Just one mistyped charac- 
ter will frequently render a program completely un- 
usable. To insure that your program will run correctly, 
the entire listing must be checked character by char- 
acter against the original. This can take many hours. 
To make matters worse, you can’t trust your own eyes. 
Do you know how easy it is to overlook an O where 
a O is supposed to be? 

Typing checkers like Unicheck (latest publication 
in issue 39) and ST-Check take over the arduous task 
of proofreading your program files. Using these pro- 
grams can cut down your debugging time by a huge 
factor. When the checker’s output matches that pub- 
lished with the listing, you can be sure your typing 
is accurate. 


ST-LOG 


Getting started. 

Load your copy of ST BASIC, then type in the list- 
ing that accompanies this article. When you’ve fin- 
ished, save a copy to your disk. 

Now, the bad news. There’s no foolproof way ST- 
Check can find typos within itself. An error in the 
program will make all data suspect. So why have I 
included the checksum data with the program list- 
ing? Because, though you can’t get much help find- 
ing your errors, you can be sure when none exist. 


Introspection. 

When you run ST-Check against itself, you will 
get one of several results. The program may just give 
up and crash. In that case, go through the listing 
character by character until you find your mistake. 

A second possibility is that the program will run 
okay, but will create all bad data. This may indicate 
an error somewhere between Lines 80 and 420. Find 
the typo and correct it. A last possibility is that the 
checksum data will have only a few bad values. In 
this case, use the normal method detailed below to 
locate your errors. 

Warning: until you get your checksum data for ST- 
Check to match the data following the listing, you 
can’t trust it to proofread other programs. 

Using ST-Check. 

When you finish typing an ST BASIC program list- 
ing from the magazine, save a copy to your disk, then 
run ST-Check. 
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VA ST-Check continued 


The program will first ask for a filename. Type in 
the name for the program you wish checked (the one 
you just saved to the disk), then press RETURN. 
You'll be asked for a “bug” name. Enter a name for 
the checksum file (this can be any name not already 
on the disk), followed by RETURN. Hint: if you in- 
clude a .BAS extension on your bug filename, you'll 
be able to view the generated data without leaving 
BASIC. 

ST-Check will now proofread the program. When 
the checking process is complete, you’ll have a file 
on your disk (saved under your bug name) which con- 
tains the checksum data for the program checked. 

If you added the .BAS extension, you may now 
load this file and view it. If you didn’t use the .BAS 
extension, you must return to the desktop, double- 
click the bug file, then click the “show” command. 

Check the last value of each line. If it matches the 
value in the published checksum data, then go on 
to the next. If it doesn’t match, you’ve got a typo. 





MegaSoft LTD is the largest publisher of 
Commodore utilities in the U.S. and is cur- 
rently expanding its lineup. We are looking 
for different and unusual utilities for the 
Atari system to be marketed on a national 
bases. Types of programs wanted would 
include copy utilities, printer goodies, bul- 
letin boards, terminal packages, machine 


language helpers, and other unusual utilities. 
At this time ST software is preferred, however 
all submissions will receive an accurate eval- 
uation. MegaSoft is interested in either an 
outright purchase or a royalty type based 


sale. 
lal you 


RUK Sr: 


Robert G. Scheffler 
Software Development 


MegaSoft 
(206) 687-7176 
P.O. Box 1080 Battle Ground, WA 98604 





CIRCLE #120 ON READER SERVICE CARD 


PAGE 54ST / APRIL 1986 


To find the error, look at the line number of the 
data statement in which the bad value occurred. This 
number is equivalent to the first program line the data 
evaluates. Let’s call this “Line X.’” Count the entries 
in the data line until you get to the bad value. We'll 
call this count “Y.”’ Now look at the program you 
typed in. Starting with, and including, Line X, count 
down Y lines. The line you end up on will be the 
one containing the typo. 

Correct the error, then rerun ST-Check. When you 
get all the checksum data to match that in the maga- 
zine, your new program is ready to run. 


Passing the buck. 

Okay, friends. Here’s where the truth comes to the 
fore. I can take only minimal credit for ST-Check, as 
it’s virtually a direct translation from D:CHECK2 (is- 
sue 16) by Istvan Mohos and Tom Hudson. All ac- 
colades and tribute should be directed to those two 
fine gentlemen. I’m sure they'll divvy it up fairly, and 
perhaps pass a small share on to me. Thanks, guys! 

You may now type in this month’s ST BASIC pro- 
gram, secure in the knowledge that the searching eye 
of ST-Check is primed and ready. A 


Listing 1. 
BASIC listing. 
ig "$7 CHECK typing validator by C1 
aytan Halnun 


"based on a ee by Istvan Mo 
hos and Tom Hudso 





38 if peek (sys tab) = 1 then cl=17 els 
® cl=32 
46 fullw 2:clearw 2:gotoxy c1,@:? " 


ST CHECK": ex-@:5p-6:x-8 

58 input “Enter filename: “,f5:inpu 
t hae eta name: ", €15 

68 ror goto 5908: open “"O" 81, f1 
S$:open atc rn? fSiclose #2 

78 open mye »82,fS:0n x goto 148,220 
88 color 2:7:7 “Counting lines":lin 
ecount=@:color i 

98 on error goto 578 

a ‘a line input#2,i$:linecount=lineco 


1186 7 " "s:goto 108 

126 close HZ: qrint Clinecount/i6) :din 
c (linecount) ,r tq) 

1308 X=i:goto 78 

140 range-O:lyne-O@:color 2:7:2:? “Fi 
lling array"“:color i 

150 7 lis scount=a@ 

168 line input#2,i$: count=countti 
178 lyne-val €i$) ir (range)—lyne:range 
=rangeti 

1898 on error goto 538 
198 line input#2,i$:count=countti:if 
count=-168 then 158 
2660 goto 198 
210 Close #2:x=2:goto 76 

color 2:7:7:? “Calculating check 

SUMS":color 1 
240 for i=i ‘2 linecount:checksun=@: 
line input #2, 
250 for zi to lenti$) :number=asc (mi 
d$€i5,z,13) 


ST-LOG 


268 if number=asc(" ") and ex=8 and 546 ? "Take note of the lines contai 


SPp=i then goto 320 ning typos, then make corrections. Wh 
270 if number<}asct" ") then sp-@ el en" 

se spri 550 ? "all corrections have been mad 
280 if number<>34 then 308 e, rerun this program to double check. 
298 if ex-i1 then ex=-6@ else ex -i ne 

380 if ex=@ and number>=asc("a") and 560 ? "Press <RETURN>":input iS:clos 
number (=asc{("z") then number=number-3 ® Hi:close #?:end 

2 570 if err-62 then resume i276 

318 produc t=x*number :checksum=checks 588 if err=-62Z2 then resume 218 
umtproduct:x=xti:if x=4 then x=1 590 if err=53 then 7? chr$(7};"FILE N 
320 next Zi? OT FOUND!" :close:resume 50 

330 CheckSUM=cChecksum-1090Xint (check 600 ? "ERROR #":err;s" at LINE “seri: 
SUM/ 10080) ic Cid =—Checksum:x=2:next i end 

348 close #2:lyne-r (6) :iten-08 

350 color 2:7:7:?7 “Creating BUG file ® 

"“:color i 


360 CouNnt=16:total=8:if Linecount<i6 
then count=linecount 


378 iS=str$ (Clyne) :i$=i$t" data " . 
339 for i-1 to count: datum=—c (i8*iten SP CHRCRSUM i 
1 


338 i$=iststrs (datum) :iS-ist",":tota 
l=totaltdatum:next i 


400 iS-iStstrs{total) :print #1,i5:7 10 data 447, 129, 203, 518, 661, 160 


ne sales = _ . 942, 482, 640, 556 
et incu: ae eee 110 data ‘25, 905, 797, 52, 79, 349, 
420 = Lyne=r Citem) igoto 366 api sata 7383-479, 624 744, 498, 25 
430 close #1: clearw Z:7:gotoxy 8,1 5, 165, 826, 410, 337, 5218 : r 
checksum data found in the Magazine," 937, 271, 769 363 4920 e . 2s 
450 7? “return to the GEM desktop and , ’ saials 
double click your BUG file. You may" 420 data” nag ig tO a Malad 
460 ? "then SHOW the data on your sc "s20 data 251. 146, 509, 146. 916, 523 
rae or PRINT the data to your printer 9, 541, 733, 845, 4626 © ® sd 
478 ? "The line number of each data e 


Statement coincides with the first lin 
e 


480 ? “of the user program the data 
Statenent evaluates. Numbers within" 
4396 ? “each data statement represent 
consecutive lines of the user program 


500 ? "The last number is the total. 
ois 

5i0  ? "Check the last number of each 
Statement against the version in the" 
5268 ? “magazine. Only when there's 
a discrepancy need you check each numb 
er 

S36 ? “in the data statement.":7? 


The Exciting Atari ST 


Computers Are Here... 


New software and enhancements are arriving 
daily for this wonderful computer. We will 
evaluate and carry only the best products, so 
you can depend on us to support everything 

we sell! 
Call or circle our Reader Service Number on 
the Response Card to put your name on our 
mailing list. That will entitle you to our FREE 

CATALOGS with product reviews, tips and 

rumors on the ST. 
VISA and MasterCard gladly accepted 
Toll Free 800-782-7007 (Oregon 479-9516) 


ST-TERM 


Data Communications for the Atari” 520ST 
$34.95 


VT52/VT100 Macro Keys 


Autodial/Editor User Group Discounts Dos Functions 


Kermit Dealer Inquires Invited Xmodem/Amodem 
Setup files Commnet Systems Print logging 
Atascii Emulation 7348 Green Oak Terrace 300-9600 BPS 
Lanham, MD 20706 
(301) 552-2517 





Panel 


837 NE 6th St.-Grants Pass, OR 97526 
CIRCLE #121 ON READER SERVICE CARD CIRCLE #122 ON READER SERVICE CARD 


Version 2.0 featuring ANSI Mode NOW Available 
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ST NEWS! 





INSIDE GUIDES FOR THE ST USER 
Abacus Software is offering three new books in their ST line. Atari ST Internals covers the 
68000 processor, the MIDI-interface, GEMDOS, error codes, custom chips, disk controller and 
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much more. 

The complete guide to programming 
the ST using GEM is explained in Atari 
ST—GEM Programmer's Reference. 
This 414-page book looks at GEM, in- 
cluding VDI, AES, GDOS and GIOS. 
Also examined is the development sys- 
tem, programming the Virtual Device 
Interface, using the editor, C-compiler, 
assembler and linker. 

Atari ST—Machine Language looks 
at logical operations and bit manipula- 
tion, program development, the operat- 
ing system and programs and the 68000 
register structure. 

The books retail for $19.95 each. A 
disk is available for each guide, giving 








the programs within, at $16.95 per book. 


Abacus has also just announced an interactive, computer-aided program designed to auto- 
mate printed circuit board layouts. The user “places” the components on the screen, then speci- 
fies the connection. The ST then proceeds to automatically route the traces on-screen. At any 
time you can change components or locations and have the traces redrawn. Abacus says PC 
Board Designer is friendly to use and features drop-down menus. Screen dumps are produced 
on Epson and compatible printers. Suggested retail cost of PC Board Designer is $395.00. Abacus 
Software, P.O. Box 7211, Grand Rapids, MI 49510 — (616) 241-5510. 
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SUPER 3D PLOTTER II 

This program lets you display full-screen, 
high-resolution, 3-D images and gives you the 
ability to rotate and move the images at up 
to six times per second. 

Features include hidden line removal and 
interactive graphic editing. The 56-page man- 


ual covers major functions: hardcopy print- 
out, rotation control, data editor, etc. Also 
offered are routines to convert Solid States 
(from our issue 16) for Super 3D Plotter. 
Retails for $39.95, from Elfin Magic, 23 
Brook Place, East Islip, NY 11730. 
CIRCLE #168 ON READER SERVICE CARD 








SOLADISK 


This ramdisk sets up an area of RAM to be 
used as another “disk drive.” This assembly 
program transfers data at the astounding rate 
of over 10 million bytes per second, with the 
least memory-consuming directory of any 
ramdisk for the ST. 

In stores $15.00; $11.00 from Solar Powered 
Software, 1807 N. Evergreen, Chandler, AZ 
85224. CIRCLE #169 ON READER SERVICE CARD 











REGENT SPELL 
Regent Software's new Regent Spell is a 
30,000-word spelling checker for the 520ST, 
compatible with Regent Word and most ST 
word processors. Misspelled words are high- 
lighted, with ten suggested spellings shown. 
Choose a spelling or type in the correct one. 
The dictionary expands to 60,000 words. 
It’s $49.95. Regent Software, 7131 Owens- 
mouth, Ste. 45A, Canoga Park, CA 91303 — 
(818) 883-0951. CIRCLE #125 ON READER SERVICE 


BITMAP COLORING BOOK 

Created from design and style books is- 
sued early in the 20th century by leading 
typographers and engravers, Bitmap's im- 
ages are suited to use as a “coloring book,” 
or for editing or other graphic changes. 

Bitmap will also be producing an archi- 
tectural drawing package, an “Electronic 
Woodcut” set and a special font package. 

Bitmap Coloring Book is $18.95. Bitmap 
will digitize images at $25.00 (see End User, 
issue 40). Bitmap, Inc., Box 237, Westwego, 
LA 70094. CIRCLE #170 ON READER SERVICE CARD 































A MULTI-TASKING ENVIRONMENT 

Beckemeyer Development Tools has an- 
nounced their MT C-Shell, described as a ful- 
ly multi-tasking, Unix-like environment for 
the ST line. 

It should be noted by readers that this is 
not a replacement operating system for the ST, 
but an extension to GEMDOS. It allows for 
multiple ST applications to be used at the 
same time. 

For instance, while the ST is compiling a 
program, it can also print out hardcopy—as 
you're editing, telecommunicating or what- 
ever. While all of this is occurring, the ST is 
said to slow down minutely. 

Beckemeyer also offers a Unix-compatible 
C library and several utilities. The MT C-Shell 
is expected to retail for $79.95 or slightly 
higher. From David Beckemeyer Development 
Tools, 592 Jean Street #304, Oakland, CA 
94610 — (415) 658-5318. 
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C TOOLBOXES 

InSoft offers several ST toolboxes with full 
documentation. The Math Tool Box includes 
programs covering vector arithmetic, statisti- 
cal functions, curve fitting, matrix arithmetic 
and more. The Searching and Sorting Tool 
Box consists of several utilities, including a 
quicksort, file merge and string/array search. 
The Graphics Tool Box will handle curve 
drawing in 2-D, shapes in 3-D, object rota- 
tion and zooming. These toolboxes retail for 
$59.00 each. 

They’ll be followed by the Graphic Work 
Station, for 2-D/3-D construction and display. 
InSoft also offers an ST disk magazine and 
newsletter. Contact: InSoft, Corp., 1834 Bea- 
con St., Suite 1, Brookline, MA 02146 — (617) 
739-9012. CIRCLE #171 ON READER SERVICE CARD 
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ST-LOG 








Low | 
Resolution’... | 


by Clayton Walnum 


“You want to what?” 

“You heard me,” replied Scratch, eyeing his assis- 
tant with annoyance. His tail twitched, and the barb 
struck the floor with a loud thwack. This schmuck 
was a perfect example of his current dilemma. He 
needed good people down here—not these muddle- 
brained losers, lacking in vision and ambition. 

WaXch(c) un tc}Mmrolon Ko Ko) aM oro) ela 0 aLb(cYe Pama W atotmcw aColnrare Uma ats) 
successful companies on the surface get their trade. 
Why should Hell be any. different?” 

The assistant shook his head in disgust. A pillar 
of flame crackled into existence behind him, and he 


SELOG 





JeCeto ls Co [cXol oon aVohval CoMonyoy(oMexc\anbet-m-toleyuclalcle MCTor Velie a 
sau bavetcre my 

“Think about it, sir!” pleaded the assistant. “Ev- 
ery time you come up with one of these ideas, it back- 
fires on you. How about that Daniels guy? Remember 
that stupid fiddle contest?” 

The assistant dodged another blast of fire. Scratch 
was losing patience. He’d warned this idiot once; he 
(ollcloumUYoraim co alcrorurelavvapeutoyuchmolel)o)elblurelatoW@ sy uboat-(eya(cyl 
He still couldn't show his face in Georgia. 

But the assistant wasn’t taking the hint. ‘And then 
there was that fiasco with the little girl. What was 
her name. . . Regan?” The assistant chuckled. “Boy, 
that priest sure put a crimp in your pitchfork! For 
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FOR THE 
ATARI ST 





* LogiKhron Clock Card * Are you tired of resetting the date and time when the Atari ST is 
turned on? Then LogiKhron is for you! It automatically enters the date and time into the 
Atari ST each time the computer boots. Through the use of an internal battery, LogiKhron 
maintains the precise time and date even when the computer is off. Installation is easy, just 
insert LogiKhron into the left cartridge slot and enjoy the benefits. — Only $49.95 





* Electro Solitaire & 21 * Transform your computer into the perfect card playing friend. Why 
hassle with searching for a deck of cards, shuffling, and dealing if your computer can do it 
for you? Electro Solitaire & 21 adds a new dimension to the ever popular games of Solitaire 
and Blackjack. Just think, point, and play; it’s as easy as that? — Only $19.95. 








* The Study Guide * The Study Guide is a carefully designed educational tool. You enter 
the information which you want to learn and the computer helps you learn it. Questions are 
then organized into formats such as multiple choice, true/false, essay, or fill in the blank. 
You can then compare your answers against the computer’s to evaluate your success. For 
ages 11 to Adult. —$39.95 


* Electro Calendar * Electro Calendar is an enhanced version of your wall calendar. You 
can store and retrieve important messages quickly and easily. For instance, it can remind 
you of upcoming meetings, birthdays, anniversaries, or any important event. If your wall 
calendar becomes outdated, let Electro Calendar print one for you. It will display or print 
calendars between the year 0001 and 9999. — Only $39.95 





For more information or to place an order, 
call (314) 894-8608. Dealer inquiries invited. 


Sorry, no Visa or MC accepted. 





° ™ 
Soft Logik Corp. 4129 OLD BAUMGARTNER « ST. LOUIS, MO 63129 « (314) 894-8608 


VA Mr. Scratch continued 


Heaven’s...uh...for Hades’ sake, they didn’t even 
pay you for the film rights.” 

There was a bright flash, a choked-off scream, then 
silence. Scratch glared at the smudge of ash, the sole 
remains of his assistant. He stroked his beard and 
began to write. 

IMAGINE! Anything you desire... 


The game. 

Well, it looks like there’s trouble brewing. Old 
Scratch has had a whole slew of advertisements print- 
ed. He’s mailed them out to a select list of citizens, 
and he’s snapping up souls so fast that the furnace 
stokers had to go on double shifts just to keep up. 

You, of course, are an aware and duty-conscious 
community member. You’ve decided free enterprise 
should not extend to the nether realms—especially 
since the infamous ad has popped up in your mail- 
box. What are you going to do about it? Is that a chal- 
lenge? You bet your sweet asbestos suit it is. 


The first challenge. 
Type in the program exactly as in Listing 1. I know 
some of the lines look a little weird. All text in the 


Megamax C 


for the 


Atari ST 


Featuring 


* One pass Compile « In-Line Assembly * Smart Linker 
° Full Access to GEM routines ° Register Variable 
Support * Position Independent Code * and much more... 


System Includes: 
¢ Full K&R C Compiler (with common extensions) 
« Linker « Librarian * Disassembler * C Specific Editor 
* Code Improver « Documentation * Graphical Shell 
Compile Execute ‘ 
Benchmark si Time size 
Sieve 70 2.78 5095 


"Hello, world" 63 N/A 4691 
*Times in seconds. Sieve with register variables. 





$ 1 9 9 é 9 5 For more information, call or write: 
Megamax, Inc 


Box 851521 
Richardson, TX 75085 


(214) 987-4931 
VISA, MC, COD ACCEPTED 
CIRCLE #124 ON READER SERVICE CARD 





ST-LOG 





program has been encrypted, so that you won't learn 
the game’s secrets as you type it in. Yeah, I sym- 
pathize. It doesn’t make the typing any easier, but 
there really isn’t a better way. Your perseverance will 
be rewarded. Trust me. 

Once you’ve got it all typed, save a copy to disk, 
then use ST-Check (see page 53ST) to be sure you’ve 
made no typos. This is especially important with an 
adventure game because errors won't necessarily af- 
fect the game in an obvious way. You could end up 
with a game that’s impossible to win. So check that 
typing! 

When running the game, be sure you have no desk- 
top accessories loaded, and that the “buf graphics” 
are turned off. 


Playing Mr. Scratch. 

As in most text adventures, you communicate with 
Mr. Scratch by two-word commands. These should 
be in a normal verb/noun format (i.e., GET BOOK, 
GO DOOR). There are a few exceptions. All direc- 
tions should be abbreviated to a single letter (N, S, 
E, W, U, D). 

There are also a few special commands you should 
be aware of. These are: SAVE GAME, LOAD GAME, 
HELP and QUIT. Use the save command to store your 
progress on disk. The load command will restore the 
last position saved. Type HELP any time you wish 
to have one of the encrypted hints translated. Final- 
ly, to end the game, type the command QUIT. Be sure 
you save your progress before quitting. 

Mr. Scratch won't understand everything you type. 
To help you find the right commands, the program 
will give you short messages. The message Don’t un- 
derstand that verb or Don’t understand that noun in- 
dicates that the verb or noun you used isn’t in the 
program’s vocabulary. When you see You can’t do 
that! it means that you haven't met the conditions 
required for the requested action, or that the com- 
mand is beyond the scope of the game. 


Novice’s corner. 

If you’ve never played a text adventure before, you 
may find Mr. Scratch a bit confusing at first. You'll 
see the message You can’t do that! at times when it 
seems completely illogical. For instance, why can’t 
you OPEN BAG? It’s right there in plain sight! 

It’s important to realize that the game will respond 
only to those commands it’s been programmed to ac- 
cept. There’s no computer in the galaxy big enough 
to hold all the possible replies to all the possible com- 
mands (and you sure wouldn't want to type a pro- 
gram that big). Sometimes, rewording your command 
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VA Mr 6 Scratch continued 


will yield a result. How about GET BAG instead? 

Draw a map. That’s the only way you can keep 
track of your location. The most common mapping 
technique for adventures is to represent each room 
(every location is a room, even if it’s outside) by a 
small box. You then write the room’s name, as well 
as any item found, inside the box. 

Each possible exit is indicated on your map by a 
small line leading toward the next room. When you 
enter a new room, be sure to take note of all exits. 
It’s imperative that you try each one. Otherwise, 
you're likely to miss something important. 

To start your adventure, try each available exit and 
note any items found. When you can go no farther, 
stop and think about everything you’ve discovered. 
What should you do with the letter? Is the red pen 
significant in some way? How about the wallet? Is 
it important? When you solve a puzzle, repeat the 
process—moving from room to room, gather items 
and information until you get stuck again. Eventu- 
ally, you'll find your way to the game’s solution. 

Before signing off, I’d like to thank our new ST 
man, Doug Weir, for the machine language subrou- 
tines that allow the mouse to be turned off and on. 
You BASIC programmers will find these routines use- 
ful in your own work, I’m sure. 


Mr. Scratch hints. 

To use the following hints, type the command 
HELP at any time during play. Find the question that 
relates to your problem, then type in the first encrypt- 
ed hint beneath it. Each line is a separate hint, and 
some questions have several hints. After you decode 
the first, try to solve the puzzle on your own. If you’re 
still stuck, then decode the next hint. 

Above all, don’t even glance at the hints until you 
really need help. The questions aren’t encrypted, and 
could give away many of the game’s surprises. #1 





How do I open the jewelry box? 


HIFSFEITIOPILFZ 
ZPVIOFFE'B!UPPM 
PQFO!UIFIUPPM!ICPY 
UTF PUIF! TDSFHESJNFS 
VOTDOSFHIUIF !IIOWFT 


How can I ride the bus? 


FOUFS ! JU 

ZPU!IBWF PUP! QBZ 

UBML UP! UTF PES JWFS 

HJWF 'SJHIU! OUNCES !PG!UPLFOT 


How do I use the terminal? 


FYBHJOF ! JU 

QUTI!UIF I! CVUUPO 

ZPU!OFFE!UTF PCPPL 
FOUFS!UIF !OPEF! GSPN! UF ICPPL 
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How do I get into the house? 


HP! EPPS 
IPHIEJE!ZPUIMJILF SKBIMG 
U5Z!LOPDLJOH 


How do I get the jar? 


UBML I UP! UTF IMBEZ 
MPPL!JO!'UTFICKH 
HJWF PIF S!UIF (DPPLJIFT 


How do I get the bicycle? 


NBLFIUIF EPH! TBOQQZ 
HJHF OTN! TPNFUTJOW PUP EF BU 
GJOE!UIF PL IBNCUSHFS 
JO!UIF FHBSCBHF I DBO 


How do I go somewhere on the bike? 


SJEF ! JL 
HIFO! JO'B!DFSUBJO! QMBDF 
PO! EPXOJOHHJIMMF ! TUSFFU 


What about the wino? 


IF ' IT! TPNFUIJOH 
HFU!QIF ! CPUUMF 


How can I keep the bottle? 


MBLFIUIF PXJOP! VOBXBSFT 
HJWF ' JN IB! TMFFOQJOH! 23MM 
QYUH TU! 0 PTF ECPUUMF 
HJWF PUD PCPUUMF PE CBDL 


What about the church? 


MPPL I BUIUTF I GPOU 
HFU! TPNF PE XBUFS 
JOC TF PCPUUMF 


What about the priest? 


WEBML I UP! TIN 

NELF IB! EPOBUJPO 

BML UPI TIN I BHBJIO 

HJWF PT INS UTE PE CPUUMF PE BOE! HBUFS 


How can I find Scratch? 


SFRE!ULF EMFUUFS 

UTF EUIF ! TUSFFUOBNF 

GIDE! UIE ODPEF! JO!UTF ECPPL 
FOUFS !DPEF! JOUP!UIF SUF SNJOBM 


How can I defeat Scratch? 


ZPUINUTU!IBWF YP XBUFS 

JU! TBTIUP ICRP IPMZ! XBUFS 

UIF PQS JF TU! RIMM! CMFTT ! JU 
TBNF PUP! HFUISJE PPG IUIF YE XJOF 





Listing 1. 
ST BASIC listing. 


19 START: fullw 2?:clearw Z@inr=Z24ini-di: 
nvoz7:option base i:goto INITIALIZE 
$6 CASE: "change from lower to upper ca 


se 
ha for x=1 to lentcm$2 :bS=mid$tcmS,x,i 


SQ af bSs—"a" and bS<{="z" then midStcm 
$,®,i3-chrs$tasc (b53-32) 

68 nextireturn 

78 TRANS: ‘print translated text 

#8 gotoxy 5,7:color 2? 

99 for x=i to lentaS):if midStaS,x,1)= 
Ho" then midSta$,x%,13="!":goto 108 


ST-LOG 





By AR SS TEAS PERCENT Eas EGS TT 
198 next:? aS:a$="":return 

110 RENEW: ‘update screen 

128 color i:gosub DESCRIPTION: gosub VE 
CTORS:gosub ITEMS: gosub INVENTORY: retu 


rn 
178 DESCRIPTION: ‘print room name 

148 gotoxy 9,2:? spaceS(25):gotoxy 9,2 
raS=rooms troom—4) :gosub 98: return 

150 VECTORS: ‘display exits 

168 gotoxy 9,4:? spaceS{i5) 

1786 for x=8 to S:vector(xtijcvecstiroo 
M-4)%6-54x) inext 

188 dr-@: gotoxy a, 

4198 for x=i to 6: if yectorix}>8 then ? 
midS(singlesS,x,13:" “s;:dr=i 

200 next:if dr-8@ then ? "None"; 

2186 return 

720 ITEMS: 'display visible items 

230 color i:for x=ii to i5:qotoxy 4,x: 
? spaces (14) :next 

2480 it-B:yr-ii:for z=1 to ni 

250 if absCiloc({z}3=room then gotoxy 4 
»>Yrasritem$(z):gosub 9B:it—i:y-yti 

268 nextiif it-8 then gotoxy 4,11:7 "MN 
othing" 

278 return 

288 INVENTORY: ‘display inventory items 
298 for x-1i to iS:igotoxy 1i9,x:7 Space 
$(14) inext 

308 i=O:yr-ii:for z=-i to 5 

310 if inviziOo chai gotoxy de aS= 
tem$ Cinv(z}):go0sub 98:i=L:y=yt 

328 nmextiif i=e then gotoxy 13° 4i:7 "H 
othing" 

230 return 

340 ERSERE ie Command 

258 if lentaS3>@ then gosub TRANS 

368 on error a 2879 

370 if drgcnt}8 and roomt}2?4 then drgc 
nt=drgcntti:if drgcnt}i8 then iloc tiz3 
=B:iloc(28}=-24: drgcnt= ES 

388 color 1:? chr$t7}: gotoxy 2,8:input 
ceaS:gosub CASE 

290 gotoxy 4,8:7 spaceS(3il:gotoxy 5,6 
:3 spaces (303 :gotoxy 5,6:7 cms 

490 gotoxy 5,7:7 spaces (30) :gotoxy 5,7 
:color 

405 if 2 aS="QUIT" then gosub LIVEMOUSE 
:color i:end 

4168 if cmS="HELP™ then a$="uzqf! joluiFf 
'fodszqufe!i jou':ho-i:goto PARSER 

420 if hoi then h-8:a5-cm$:goto PARSER 

436 if lent{cm53-1 then 566 

440 xrcinstrica$," "S:if «<3 then 7? “HU 

H?": goto PARSER 

— aEr he leftSicms, 33 :nounS—mids (cms, 
xT1, 

= yroinstr (vtabs ,verb$3:if vo79 then 
yo 

465 if v>@ then votrtintty/73+13: goto 


488 

470 7 “Don't understand that verb!":go 
to PARSER 

4809 n=instr(ntabS,noun$3:if n>@ then n 

=inttn/Fiti:igoto 588 

498 if roomt}id or yvt?s sue 7 "Don't 

understand that noun! got Pa ROER 

568 turn-turnti:if intt urn/i8) turn’ 

18 then 518 

505 iloc (93 -O¥Ciloc (93 (939411%Ciloc (33= 
8):if room=ii then gosub ITEMS 

506 if iloct{93=--ii then busrbusti:if b 
us’? then bus=i 

519 if room=i5S then scr-serti:if scr=z 
Shen ee an ene e Ss 2a Se eee 
to 


ST-LOG 


5278 if roomé?}i5 then scr-6 

S38 color ?:gotoxy 5,7 

540 if bturns8 then bturn-bturnti:iif b 

turn=5 then bturn-@:room-ii:iloct93=8: 

gosub RENEW: aS="7pv'thfulupttfe!pogtuif 
'cyvt"': goto PARSER 

558 if lentcm$3—1 then goto ONELETTER 

568 on ¥ goto 6580,8009,970,17890,1750,14 

39,1468,15108,156108,16469,1720,1748,1789, 

1840,1880,1968,28508 

570 ONELETTER: ‘single letter commands 

S80 voinstrisingless,cmo3:if ye then 

? "WHAT?" : goto PARSER 

590 if roomo=24 and iloc(iz)=-24 and il 

Ocfidi=-i then aSi="UIF!'XJOP! BUUBDLT!ZP 

Yo": gota BEAD 

618 if vector(yv3-8 then ? "You can't g 

0 that way!":goto PARSER 

620 7 "Okay": room-vector (tv) :gosub RENE 

H:goto PARSER 

658 color 2 

6668 if room—25 and wt=8 and ilocfti43=- 

4 and n=239 then wt-i:a$="Zpv!gimmiuif! 

CPuUMf': goto PARSER 

678 if m=-8 and opi-i and tiloct43-68 or 
ilocf{d43—=-i3 then 7298 

660 if m=? and opi=i and iloct{n3=9 and 
room—i? then 7286 

685 if n=-2 and op-i and ilocinj—8 and 

iloctiy--i then 728 

690 if noid and iloct{i43)=-8 and room-74 
then 728 

695 if n-26 and iloctni—-8 and room-74 

then 726 

697 if mo27F and ilocini—-8 and ilaocts3=— 

-1 then ?728 

70980 aif n-29 and itloctidj3—--i then 728 

FOS aif CiloctzBi-room or iloctzH}--1) 

and n=-22 and iloctn3-8 then 728 

7H? if n¢ni then goto CANT 

7ib if ilocin}<¢-4 then ? "You can't ge 

t that!i":goto PARSER 

7i5 if abstiloci{n}}<¢}room then ? "It's 
not here!l*:goto PARSER 

720 if iloctink}--i then ? "You already 

have it! ":goto PARSER 

738 i=: for x=i to Siaif invtx3=-8 then 

i=x 

748 mextiaf i-B then 7? "You can't carr 

y anymore!"':goto PARSER 

758 if Proom—27 and n-1i9 and iloc ti8i-— 

room then aS="TIFITBR'ZPU—' KBJIM!ILINFIX" 
goto DEAD 

768 if room—28 and iloct?6}--room then 
a5S—"UIF'EPHIDIFHT! ZPY¥!UQ=—": goto DEAD 

778 7? "Dkay"™:iloc(n}=-L:iinvlil=n:icolor 


1 

7808 gosub ITEMS: gosub INVENTORY: goto P 
ARSER 

808 color 2 

BiG if mézz or n}z4 then 85a 

B20 payron-ZZ2Z:if paystok then aS="Zpvie 
Potu!libwf! fopvhi'': goto PARSER 

B30 tok—tok-pay:if tok}® then 835 

ad For X=i to Stiff invtx3=8 then inveé 
i a? Ses 

832 nextiiloct8i-B:i:gosub ITEMS: gosub I 
MVENTORY 

825 if paytbus then bturn=4:goto 548 
840 aS="Plbz—-!uif!cut'!mfbwft" :bxit=bus 
fhusi:ibturn-8: goto PARSER 

858 if ilocit{ni<>-1 then ? "You don't h 
ave it!":goto PARSER 

$68 for x-i to Stiff invtx3=n then i=x 
870 mextiaif room=27 and n=?2 then b=" 
CPai-!Jtemthfulbiqmbuf=C€":aloct27I—-B:il 
OC tCABI—Biainvtis—BHigoto 35a 

BRO if room—?8 and n=?76 then bS-"“Hifle 
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Phihpccmft! jufvg":iloc (n)=-4: iloc (249= 
~room:iloc €203=0:invlid=O8:goto 950 

8990 if n=29 and iloc(i4)=-1 then drg=i 
1b$="/ 7/7 joluif'icpuumf": iloc (nj -Gi inva 
3=8:goto 950 

900 if room=24 and iloc(i3)}=-24 and dr 
g-=i and n=-14 then drgcnt-L:iiloc (id3=8: 
invCiI=O:color 1:bS="Uif!x jop!ubl ft! ju 
icbdl":goto 958 

916 if room=25 and n=27 then iloc (n}=- 
4: inv (id=O:bS—"/// jotuifte jti":goto 95 


920 if room—25 and b1I-8 and n=id and w 
toi and wn=i then a$="Uif!qs jftu!lcmftt 
ftluif'ixbufs":bl=-1:gota PARSER 

925 cnt-O:for x=1 to nitif abstiloctx) 
J=ro0om then cnt=cntti 

926 mextiif cnt=5 then ? "No more roon 
here!":goto PARSER 

938 invCis=-Giiloc (ni=room:? “Okay":col 


or i 
3948 gosub ITEMS: gosub INVENTORY: goto P 
ARSER 


958 color i:gosub ITEMS: gosub INVENTOR 

¥Y:iaS=b$:gotoxy 5,7:qg0to PARSER 

976 if neni then 1188 

998 if m=i and iloct{n}=-i and op-i and 
iloct{23=6 then aS="Haifsf(tibimfuufs! j 

otjef': goto PARSER 

1880 if room-7 and n=4 and op2z=08 then 

See ne Sened ite-ts hres aets PA 

4610 if room—12? and n=6 and opi=i and 
iloct?73=68 then aS="Uifsf{(tib' tds fxes jw 
fs": goto PARSER 

1826 af n=-4 and Ciloctnj--i or iloct{n3 

=room) and opz-i and iloct#3=8 then aS 

="Hifsftsfiuplfot! jo! ju“:goto PARSER 

1836 if n{>3 or iloct{n}<}-room then 18 


65 

1849 aS="Juttihp johtup!":on bus goto 1 
658 ,1068 

10950 a$-aSt"EPHOVUDEFS'': goto PARSER 

41960 aS -aSt"EPXOJOHNJMMF™: goto PARSER 
1865 if n=8 and iloct8}--i then 7? "You 
have “stok;" of them": goto PARSER 

1078 af room—id and n=1i then aS="ifs 
F(tibicyuupol po! ju":goto PARSER 

L980 Gf room—=275 and n-i? then a5-"CFHB 
SFIPGIEPH': goto PARSER 

1096 af froom—24 and n=25 and iloct?6}=— 
6 then aSi="Hifsfitibolpme!ibncvshfs! jo 
!ju"':goto PARSER 

1108 if n=5 and iloctn}=--i and iloct?7 
3=8 then aS="Uifsft(t!blepmmbs! jo! ju':g 

oto PARSER 

4110 if room—2?5 and n=i6 then aSr="Ifli 

bt! bi dpmmfdu jpole jti“:goto PARSER 

1128 if room=25 and n-i5 then aS="uifs 
FCtixbufs! jo! ju':goto PARSER 

41136 if room=24 and (n-i23 or n=283 and 
iloctid43=—@ then aS="TF(t!hpu'lb! cpuuntf 

":goto PARSER 

1140 if n=i3 and iloctn3}=--i then a$="u 

gone eee SRE ERIN ES RNS S102 TESORO PARS 


1156 if n=-i4 and iloctn}=-i and wn-8 t 
ag aSioMUifsét(tix jof! jo! ju":goto PARSE 


41168 if n=28 and iloct{n}=—-i and iloct? 
23=8 then aS="Hifsf(t!dppl jft! jo! jut:g 
oto PARSER 

41786 if n= and iloctn}—-i then aS="Ui 
fiu jumf!i jt; 'TUSFFUIDPEFT': goto parser 
4172 if room—-i5 and n-12 then aS ="HPH- 
'Tpsotiboe! fwfszui joh—":goto PARSER 
1186 7? "You see nothing special"™:goto 
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PARSER 
42760 if n=1 and iloctn}=-i and op-8 th 
ER aSi="Zpuls jq! jul pqfo":op=i:goto PARS 


R 

41216 if room-12 and n-6 and opi-@ then 
7 "“Dkay":opi-i:goto PARSER 

12726 if n=4 and Ciloctn3--i or iloctn) 
=room) and op?=i1 then aS="Pqfojoh///": 
Ops—-1i:goto PARSER 

4236 if n=-4 and Ciloct{n}=-1i or iloctn) 
=room) then aS="Zpvlepotulibwf!uifilfz 
":gato PARSER 

1235 goto CANT 

125060 if nt}? or iloctn)<>-i then 1408 
12766 clearw 2: gotoxy 17,8:a5="777!G6 isf 
gbmm!'Dpysu":gosub 98 

4278 gotoxy i17,1i:a5-"Epxovoefs—-!OK!435 
76": gosub 98 

1288 gotoxy 17,2:a5="Kvof!23-!2:97": 90 
Sub 38 

1290 aS="Efbs!of jhicps-":gosub 98:?:a$ 
=" JNBHJOF=!Bozui joh!zpyvileft jsfidbo!'c Ff" 
:gosub 38 

1368 a$="zpyust! x jui jol'Z5!ipyst='Uibuctt 
's jhiu=":gosub 98 
43718 aS="POMZ!Z5!IPVUST—=!Npofz—!Mpwf-'!b 
'ofx':gosub 38 

L320 aS="dbsffs/! 'Bozui joh! bu! bmm/ 'Dbo 
'zpu"':gosub 398 

1338 asr="usvtul vt@lLlfz—-—!xftwicffo'inbl 
joh":gosub 98 

1348 aS="hsfbulefbat! gps!dfouvs jft/ up 
fublf':gosub 936 

1358 aS="bewboubhf!pg!ui jt! gboubtu jd!p 
ggfs-"':g0sub 38 

1360 aS="kutult jho'po!uifiepuufe!mjof! 
JSFE! jol":gosub 98 

1376 a$-—"pomz—-—!qmfbtf¥/":gosub 98:27:45 
="NS/iTdsbudi":gosub 36 

1288 color i:gotoxy 16,17:7 “Press RET 
URN"; :ainput a3:gosub SCREEN: gosub RENE 


WN 

1358 goto PARSER 

14080 if room=?76 and n=i7 then aS="CFXB 

SFIPGIEPH': goto PARSER 

4410 af n=3 and iloc(n}=-i then aS="vt 
;!GIBOE! tusffulobnf': goto PARSER 

L436 af n=2 and iloctnj--i and iloctii 

J=-1 then aS="Zputwflusbefelbxbz!zpvs! 

tpuym—":goto DEAD 

1446 goto CANT 

1466 if Ciloc(434>-1 and iloct43 <}room 

} or iloct?3<4>-4 or nt}32 or op2z=i the 

nh goto CANT 

1478 a$="///Ut joh!uif'tdsfxes jwis": op? 

=1:goto PARSER 

i516 if room-ii and n=9 and iloct9}=-r 

oom then room-i3:bturn-=1:gosub RENEW:a 

S="Plbz": goto PARSER 

i528 if roomt}id or but=9 then i588 

oh ly but=6:if n=76 then room-i5:goto 4 

1546 if n=-2?7 then room-i6:goto 1578 

1558 if n=38 then room-9:goto 1578 

i555 af n=-45 then room-id:igoto 15786 

1560 aS="Opui joh!ibqqfot":goto PARSER 

i578 gosub RENEW: a5—"Qpppggggq-": goto 

PARSER 

i588 if room=26 and n=?72 then aS="ZPUL 

SFIvISPHO!IO'KBIMN—"': goto BEAD 

1596 goto CANT 

46418 if room-12 and n=9 then room=bxit 
:7 "hay": goasub RENEH: goto PARSER 

16286 goto CANT 

41646 if n<}1i8 or roomt}iz then 1688 

oon asx" QGbSsfl jt!":on bus goto 1666,1 


ST-LOG 








1660 aSraSt"2!uplfot"': goto PARSER 

1670 aS=aSt"Z!uplfott': goto PARSER 
16880 if room—-24 and n-is and iloctiz3= 
-24 then aS="Ificysqt!boe! tn jmft": goto 
PARSER 

1690 if room=27 and n=18 and iloc (n}=- 
27 then a$S="CIpxibcpvu! bi tobd1@t": goto 
PARSER 

1695 if room=25 and n=16 and iloc (273% 
>-4 then aS="{Dibs juz! jtihppe!gps!uif! 
tpymC": goto PARSER 

1697 if room=25 and n=16 then aS5-="tIpx 
Inbz!J'ifmqa! zpve@t": goto PARSER 

1768 goto CANT 

1720 if room-i4 and n=25 then adS="B! wp 
fos PERS PUES EERE Se PAR 


1736 goto CANT 

1748 if room—256 and n=2?2 and iloc (i8)3=— 
8 then room=?7:g0sub RENEW: aS5="Epps! jt 
Ipqfo/!Zpy!ltufq! jot jef":gotoxy 5,7:g0t 
oO PARSER 

1750 if room=26 and n=22 then room-=27: 
gosub RENEW: a5="B 'mbez!imfutizpy! jo": go 
toxy 5,7:90to PARSER 

1766 goto CANT 

1780 if n<{}42 or iloct1434>-1 or wnr-i 
then 1818 

1798 if room—-24 and iloctiz3=--24 then 
aS="HIF!XJOP! BUUBDLT!ZP¥=—": goto DEAD 
1800 wn=i:wt=8:aS="Zpv!i qpys!pyuluif ix] 
of":goto PARSER 

1810 if room—-i5 and ilocti43}--i and bl 
=i and n=29 then aS="IF!NFNUT!BXBZ!IUP! 
OPUTJOH": goto WINNER 

41820 if room-15 and ilocti43=-i and n= 
39 then aSr="IF!IUISPHT! BI! QJUDIGPSL=":go 
to DEAD 

1828 goto CANT 

1840 if roomti6 or room>24 and n=271 an 
d iloctn3=-1i then aSr="Hif fff Ff fio": got 
Oo PARSER 

1858 if room>i15 and roomé25 and n=?i a 
nd iloctn}—--1i then room—-9:go0sub RENEW: 
aS="Pgg!zpy!ihpo":goto PARSER 

1#68 goto CANT 

1880 if nt}48 then goto CANT 

1890 ? "Saving.,.."“:0pen "O"',81,"5CRATC 
H.DAT" 

1988 for x-i to niiwrite Hi,iloctx} ine 


xt 

1918 for x=1 to S:iwrite Hi,inyvtx) :next 
1920 write Hi,room,op,o0pi,op?,o0pz, turn 
»bturn,bus,tok,bxit,but 

19386 write Hi,drg,drgcnt,wat,bl,wn,scr 
goto 29278 

1968 if n%>46 then goto CANT 

1378 on error goto 2030:?7 “Loading..." 
open "I", 81,"S5CRATCH. DAT" 

1988 for x=i to ni:input BH1,iloctx} ine 


xt 

1996 for x-=i to S:input #Hi,invtx) inext 

2000 input Hi, room,op,opi,op2?,ops, turn 

»pbturn, bus, tok, bxit, but 

270180 input Bi,drg,drgcnt,wat,bl,wn,scr 

:gosub RENEW 

20268 close:gotoxy 5,7:color 2:7? "Done! 
‘:goto PARSER 

2030 aS="OP!'HBNF! TBWFE-":resume PARSER 

2050 if nt4i or no44 or iloct33<>-i th 

en goto CANT 

7068 aSi="Hifidpef! jt; '":if n=41 then a 

$-a$+"GBM" 

2070 if n=42 then aS =aSt"BJO" 

2080 if n—-43 then aS -a$t "HIM" 

2085 if n=44 then aS=aSt"uPO" 

260986 goto PARSER 
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71880 CANT:? “You can't do that!": goto 
PARSER 

2118 DEAD: "Player blew it! 

2170 clearw ?:gotoxy 18-len(a$)/2,5:90 
Sub 98 

2130 gotoxy 6,8:? "This adventure is o 
ver! 

2148 gotoxy 6,12:7 “You lasted "; turn; 
" turns" 

2158 color i:gotoxy 8,417:7 “Play again 
"s:input aS 

2160 aif left$taS,123="¥" or left$taS,13 
="y" then gosub LIVEMOUSE: goto 22486 
2170 aif leftS{aS,13="H" or leftStas$,1) 
="n" then gosub LIVEMOUSE:end 

21868 goto 27158 

2198 WINNER: 'Mission completed! 

og ali 2:gotoxy 18-lentas)/2,5:90 
Su 

2718 gotoxy 12,8:7 "YOU WIN! !":gotoxy 
6,12:7 "It took you “;turn;" turns':go 
to 2158 

2228 IMITIALIZE:'set up game 

2230 if peek{systab3-i1 then gotoxy 108, 
18:7? "You must have a color monitor!": 
for x=i to S#80:next:end 

2235 dim vector (6) ,vecs (nr*6) , items {ni 
3,invt(5) ,room$tnr}? ,iloc (nitiz2) ,trinv3 
2236 dim vVAt4) ,MLA583 :aviovarptr (vx ti} 
Yistrtovarptr (mlx (13) 

2237 dim bus{2}: bustilr-id:ibus {23-16 
272480 poke contrl,32:poke contrl+2,8:po 
k® cCOontritéG,1:poke intin, 27:vdisys ti} 
2250 restore 2360: fullw ?:clearw 2:if 
Ct eNion es anaes then linef 362,808,382 ,16 


2268 color 2,1: f111 158,886 

2270 efF=16:g05ub TEXTEFFECT: gotoxy 5,5 
:7 "MISTER 3 € RAT CH" 

2280 ef=4igosub TEXTEFFECT: color 3: got 
oxy 9,7:7 “" A Devilish Tale" 

2298 ef-i:gosub TEXTEFFECT: color 4:if 

Peek(systabj-2 then color 2 

2700 gotoxy 15,9:7 “by" 

2318 gotoxy 18,168:7? “Clayton Walnum"'ie 
f=8:gosub TEXTEFFECT 

2340 for x=1 to SiinvitxI-Oinextiinvtis 
=SranvetZy—-31i 

2358 for x=1i to nr*®6iread vecstx} inext 


2360 data 6,.7,8,8,8,12,9,5,8,80,8,8,5,8 
:9,0,8,0,9,18,8,5,0,8 

23780 data 6.8,0,60,8,0,8,11,0,0,8,8,198, 
6,9,8,0,0,0,0,8,8,5,8 

2380 data 6,80,0,8,0,0,14,14,14,14,14,1 
4,9,0,80,60,8,8,22,17,22,16,6,8 

2390 data 16,18,24,80,0,0,17,19,25,0,8, 
6,18,20,26,8,0,8,19,21,89,80,8,8 

2400 data 20,22,22,21,0,0,23,21,21,22, 
9,8,22,23,23,24,0,0,8,0,23,17,0,8 

2416 data 6,0,9,13,0,0,0,8,0,19,8,0,8, 
§,28,26,0,8,0,0,0,27,0,8 

2420 for x=1 to nitiread itemS(x),iloct 
x} next 


2430 data Fowfmpqf,5,Mfuufs,8,Cppl,6,K 
fxfmszicpy,7, XbmMmfu,-1,Uppm! 1 ju,-12 
2440 data Tdsfxes jwfs,8,Uplfot,8,fvt,— 
11,E5 jwfs,—-13,Ufsn jobm,-14 

2450 data Ns/Tdsbudi,-15,X jop,-24,Cpuu 
mf,8,Gpou,-25,05 jiftu,-25 

2468 data Tjho,-26,Mbez,—-27,Kbs'pgiqim 
Mt ,27,TobsSm joh!eph,—-28,C jdzdmf ,2% 

2476 data Gspoulepps,—-26,Dppl jft,8,Ibq 
qzieph,®, Hbscbhf! dbo,—-24, Ibncvshfs,6 
2488 data Epmmbs,8,Tmffq joh!x jop,8,2 jm 
Seed ne ngdices phakancca: ahee 

2490 vtabS="GETTAKDROGIVLOOEXADPEREASI 
GUNSREMGO ENTEXILEATALSPEPRE" 
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eA YtabSt'PLUSKNOPOUEMPRIDSAYULO 

2516 for x-1 to nviread tr{x} inext 
2526 data 1,1,2,27,3,3,4,5,6,7,7,8,3,3, 
9,18,168,11,11,12,13,13,14,15,15,17,18 
2530 for x=i to ii:read rooms (x3 :next 
2548 for x=12? to 19:room$ (x3J="Po!lEpxo j 
OhwgMMf! Tus next 

2556 for x-=28 to nriread room$ tx} :next 
2568 data Jo! zpysimjwjoh!sppn, Jolzpus! 
efo, Jo! zpus!cfesppn,Po!Nb jo! Tustfu 
23780 data Po'!INb joiTusffu,Po'!Nb jo! Tustf 
u,Buluificytitupq, Jo!uifidfmmbs 

2580 data Po'tbicut, Poll puufsupo! Tusffu 
,UO'bisfelpgag jdf 

2590 data JoO!'bo'bmnfz, Jo'b!idivsdi,Jo!t 
pnfpoft{t! gspou!'zbse 

76680 data Jo!'b!mjwjoh!sppn, Jo! tpnfpot ¢ 
tichdi!zbse 

2618 ntabS="ENVLETBOOBOXWALKITSCRIOKBU 
SBRITERMR .WINBOTFONPRISIGLADJARDOGBIC 
2620 ntabSintab$t"'DOOCOOHAPGARHAMDOLSL 
EPILBAGPEN" 

2630 ntabSi=ntabSt"HINONETHOBUTFALVILAI 
NWATGAMF IRMAIDONHOTTON" 

2646 SinglesS="NSENUD" 

2645 for i-8 to 96 Step 27:read c:ipoke 
Strtti,cinext 

2646 data &hific, &h22, &hdede, &h5o4st, &h 
?2a6f,&h6,&h2a55, bn2040, £h4ies, hig 
2647 data &h2a90 Rh2f3c, 8, &h34, Rh? fic, 

0,&h36, Shs fac, 9, &hs esc, 6 Seas 

2é4e data begtte, Bc’ h4e75, fnae7s, a 
,0,6,0,&h2a6f, &h6, * eheags &h2Fi5 

2649 data &h2 £3, 08,&h5e, Rnz 3c, &hi, &h3 
fic,.8, &h4ede, bhatt, a, &hc, Rh4e75, Bhi, 8 
2658 roonsS: oOp=8: opiz a: op2= B:op3s-a: tur 
ALA bturn 8 busch i tokio4 :beitoLirbutia 
a drg-@:drgcnt 8: wat-O8:b1=8:wn-O8:sc 
eo 

2688 gosub SCREEN: gosub DEADMOUSE:gosu 
b RENEH: goto PARSER 

2698 SCREEN: ' draw display 

2706 poke contrl,32: poke contri+?,0:po 
ke contrlt6,i:poke intin, 2:vdisysti} 
2705 restore 2720:clearw 2?:icolor ?,4,2 
2710 read a,b,C,d:if a--i then 27738 
2720 Linef a,b6,C,d:goto 277180 

27238 data §8,0,37823,0,0,0,8,166,2302,8,38 
3,166,0,166,23082,166 

2746 data 92,8,92,18,2718,08,218,18,18,1 
8,293,189 

2758 data 18,18,18,156,27933,18,2792,156, 
10,156,293,i156 

27668 data eviaetse ane aer? 415,151,238 
$,15,288,151,15,151,288,1i 

2770 data 15,32,788,232, is: 50, 288 ,580,15 
,86,2788,86, 151, 86, 151,151 

5738 data -1,- 1. ~i,-d 

2798 fill 158,i6i:color 1,8,6,i,i:fill 
158,55: fill 158,17 

2795 if peektsystab}—-? then color 2? 

ice 11,6:7 "MISTER SCRATCH": co 


or 

2610 gotoxy 2,2:7 "“PLACE:":gotoxy 2,4: 
? “EXITS:" 

2626 gotoxy 2,10:7 "YOU SEE:":gotoxy i 
7,10:7 “YOU HAVE:" 

2830 return 

2640 TEXTEFFECT: ‘set effects for text 
2556 poke contrl,1686:poke contrit2,O:p 
oke contrite,i 

2860 poke intin,efivdisys til :return 
2874 gotoxy 5,7:7 “ERROR “yerr;" aT LI 
NE “;erliresume PARSER 

2686 DEADMOUSE: "get rid of the critter 
2896 call strttavi :return 
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2360 LIVEMOUSE: ‘rodent reincarnation 
23910 strticstrtté2:icall strtitavi:retu 
rn 


ST CHECKSUM DATA. 
(see page 53ST) 


46 data 923,456,515, 720,32,373,655,181 
23682,227,4534 

416 data 148,119,732,850,790,1081,582,3 
45,924,54,4745 

216 data 325,436,851,761,166,136,753,5 
53,839,914,4944 

310 data 484, 198 ,342,121,14,739,561,85 
5,36,5685, 3956 

405 data 613,429,661,964,726,255,305,1 
9,482,257 ,4631 

4396 data 748,166,257,695,868,326,745,4 
91,706, 786,53 788 

S78 data 142,562,118,872,258,344,132,9 
28,576,674 ,4688 

690 data 671, 472,674,223,84,432,251,39 
5,333,216, 3751 

740 data 134, 978,567,257 ,115,7233,228,8 
56,291,4, 3815 

832 data mans 737,378,133 ,522,411,664,4 
54,623,848, 4546 

320 data 558, 696,222,329,1807,354,515,6 
.159, 403, 3782 

1620 data 24,722,793,316,784,664,881,3 
id,444,449,5798 

11168 data 58,420,125,6323,170,465,143,6 
91,58,265,2978 

i218 data 216,917,148,799,214,934,648, 
425,723,778,5786 

1316 data 256,35,186,8209,7523,717,492,2 
79,75,317,3924 

1418 data 469,809,796,487,2,589.38,51, 
236,139,23608 

4555 data 244,637,2306,392,804,421,3800, 
918,129,205, 4856 

4676 data 522,281,989 ,242,201,801, 987, 
804,832,196, 5855 

i766 data 8807,312,219,848,792,146,8687, 
188,570,810 ,5428 

L880 data 3327,527,91,959, 73,980,333, 390 
§,85,981,5269 

28080 data 76,632,28,919,26,85,178,279, 
254 ,68,25805 

2160 data 128,161,583 ,768,636,6i7,97i, 
171,568,191,4653 

22880 data 504,195,658, 106,322,243,1270, 
627 ,432,912,4128 

22786 data gn 322,204,899, 
729,698,449 ,583 

2396 data 524, ais, 996, 782,497,229,89%, 
871,458,664, 664 

2498 data 546, 212, 420,332,626,818,894, 
983,249,193 ,.5267 

2590 data 365,468,844,442,401,310,478, 
741,425,411 ,5339 

2649 data 289,674,273 ,928,329,638,685, 
953,252,624,5678 

2740 data 584, 231,5509,358,92,325,288,4 
66,384,364, 4662 

2830 data 466, 961,645, 709,666 ,46,392,8 
79,423 ,5127 


ST-LOG 












by Clayton Walnum 


I hope you’ve been keeping up with your study- 
ing, because this month we're going to get down to 
some serious business. Looping structures are on our 
agenda, as well as a bit more about functions. And, 
just so we end up with something practical, the pro- 
gram I’ve chosen incorporates a function that should 
prove useful in the future—a sort routine. 

First, I want to tie up some loose ends from last 
month. You may have been wondering how you can 
input strings of more than one word. The scanf() 
function is pretty useless for this purpose, since, as 
soon as you try to put a space between characters, 
scanf() grabs whatever you typed and assigns it to 
the first argument on its list. 

We need a function that will ignore white space 
characters, one that will accept every character we 
enter until we tell it we’re done. Of course, there is 
just such a beast. 

The gets() function allows the input of strings con- 
taining white space characters. It terminates only 
when it sees a newline. The format for gets() is: 
gets(str). 

As you see, gets() requires one argument (in this 
case, str), the address where the string is to be stored. 
This will usually be a previously declared character 
array, so supplying the function with the array name 
passes the address (remember, an array name holds 
the address of the first byte of the array). 

Why haven't we been using this neat little trick all 
along? Think about the RETURN key on the ST. What 
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does it do for us? It provides a return character, right? 
And what does gets() need to terminate input? All 
of you mumbling “newline” get a gold star for the 
day. The only way that I’ve found to get a newline 
character out of the ST keyboard is with a CTRL-J. 
Kind of a clumsy way to end input, don’t you agree? 

Later on, we'll design our own input routine, so 
we wont be at the mercy of scanf() or gets(). But first, 
we need to take a look at a couple of new ideas. 

Onward. 

It’s typing time again. Type in Listing 1 and com- 
pile it. If you have trouble, see the sidebar accom- 
panying this article. 

When you run the program, you’ll be asked how 
many numbers you wish to sort. Enter a number be- 
tween 1 and 10, then press the SPACE BAR to ter- 
minate your input. You’ll be asked to enter each of 
the numbers. When you’re done, the numbers will 
be sorted in ascending order and printed out. For 
those of you who don’t have your compilers yet, a 


program run looks something like this: 
How many numbers? 5 
Enter number 1: 56 
Enter number 2: 25 
Enter number 3: 12 
Enter number 4: 99 
Enter number 5: 12 
Sort complete! 
42 12 25 56 939 


Digging in. 

Now let’s take a good look at the program’s innards. 
Since this one’s much longer than any of the others 
we've done, you might want to number each line in 
your listing so you can follow the explanation more 


APRIL 1986 / PAGE 65ST 





VA C-manship continued 


easily. I don’t include blank lines when numbering; 
skip over them. 

Line 1 instructs the compiler to add the con- 
tents of the stdio.h file to our program. 

Line 2 defines the symbolic name MAX as 10. 
This is the maximum number of values to sort. 
Take a quick look at the listing. MAX is refer- 
enced in three places. If we didn’t use the de- 
fine statement, wed have to substitute the 
number 10 for each occurrence of MAX. When 
we wanted a different maximum, we'd have a lot 
of changes to do. The #define allows a modifi- 
cation by simply changing the value assigned to 
MAX at the start of the program. See how handy 
this is? Imagine how much time it would save 
you if you were working on a thousand-line 


program. 


Line 3 is a function name. 
Line 4 marks the beginning of the function. 
Line 5 declares the variable num as type 


integer. 


Line 6 declares val as an array of type integer. 
Because we used the symbolic name MAX to 
dimension its size, this array will contain 10 ele- 
ments, 0 through 9. 

Line 7 declares the variable ch as type 
character. 

Line 8 gives us something new to discuss. Here 
we're calling the function how__many(), which 
starts at Line 14, and assigning the value it 
returns to the variable num. This will be the 
number of items we want to sort (not to be con- 
fused with MAX, which is the maximum items). 
Notice that this function call has the same for- 
mat as another that we’ve used quite 
frequently —ch = getchar(). Function calls work 
exactly the same, whether you’re calling a library 
routine like getchar() or a function of your own. 

Line 9 calls another of our functions, 
get__nums(). Since this function doesn’t return 
a value, we aren't assigning its return to a varia- 
ble. We simply call it by name, just like printf(). 





ATARI ST USERS! 
2 BIG COLLECTIONS OF EXCELLENT PROGRAMS — 
ONLY $34.95 EACH! BASIC REQUIRED. 


LIFE ORGANIZER 


PERSONAL SPREADSHEET — All the 
power most people will ever need. 64 col- 
umns; 192 rows; variable column width, 
copy; replicate; delete; insert; save; load; 
print, calculator; search 


PREPROGRAMMED SPREADSHEET AP- 
PLICATIONS — Budget; car expenses, 
rental management, financial statement; 
team records; reunion records, vacation 
planner, stock portfolio; home inventory 
and values, net worth, collector's values; 
check register, home heating costs; insur- 


ance requirements; event scheduler; grade- 


book; comparisons of investments; party 
planner, rent vs. buy decision; meeting 
planner, project organizer 

OUTLINE PROCESSOR — Organize your 
ideas, plan and write a term paper or arti- 
cle; plan a project, print out your final prod- 
uct Edit and reorganize until it’s right 
FLEXIBLE FILER — Database for address 
lists, membership records, inventories 
etc You define the categories Edit; 
search, sort 

LABELS — Format and print labels from 
Flexible Filer 


DECISION MAKER - Sophisticated weigh- 


ing of alternatives for any difficult 
decision 

TYPER Complete touch typing course 
with a video game for practice 

METRIC CONVERTER 
versions 

INTEREST PROJECTIONS 
loans and savings plans 


Over 20 con 


Compare 


each collection (disk and manual) ONLY 
$34.96 ($43.95 Canadian); M.O. VISA 
MASTERCARD (include expiry); 10% dis: 
count if you order both at once. 


ENTERTAINMENT JACKPOT 
CHECKERS — Acclassic 

OTHELLO — Beat the computer 
CRIBBAGE — The popular card game 
BACKGAMMON — The ST is aggressive 
THE VISITOR — Text adventure with 
graphics. Your smart but odd companion 
must rendezvous with its mother ship 
BOMBSQUAD — Text adventure with 
graphics. Find the terrorists’ bombs in 
tme 

ADVENTURE CREATOR — Write your 
own adventure games. Extensive tutorial. 
“framework program’; fast machine lan- 
guage parser routine; graphics sub- 
routines 

THERAPIST — Talk to your ST Smarter 
than Eliza 

MANSION — Text adventure Find the 
second Mona Lisa 

CASINO — Lose your money at home 
One armed bandit. roulette. craps. faro, 
blackjack, keno; baccarat. draw poker, 
wheel of chance — great graphics 

3-D TIC TAC TOE 
plexity 

THE WRITER Watch your ST write 
poetry and prose Personalize the vocabu 
lary and subjects 

MENTAL A great ‘psychic illusion 
ANALYSIS Convincing “personality 
analyses’ just for fun 


CHARGE CARD ORDERS ONLY 
Ph 800 628.2828 Ext 635 


MARTIN CONSULTING 
94 Macalester Bay 
Winnipeg, Manitoba 
Canada R3T 2X6 

(204) 269-3234 


Challenging com 
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Regent Base 


A Full Function Relational Database! 


Regent Base's procedural language make it 
a natural for handling any of your small 
business needs. Modules are available for 
Invoicing, Accts. Receivable, Checkbook 
Balancing, General Ledger, etc. 


Regent Base is a relational database written 
specifically for the Atari ST. Don't settle for 
simple clones of IBM products. Regent Base 
is easy to use and state-of-the-art! 


7131 Owensmouth, Suite 45A 
Canoga Park, CA 91303 
(818) 883-0951 


Atari ST 
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We do, however, have to pass arguments to the 
function—num (the number of values we wish to 
sort) and val (the array address where we're going 
to store the values). 

Line 10 calls the function that does the sort. It 
doesn’t return a value either, but still must be passed 
the same arguments as get_nums(). 

Line 11 calls the function that prints the sorted 
numbers to the screen. It requires the same arguments 
as the two previous functions. 

Line 12 waits for you to press the BACKSPACE key. 
This statement probably looks pretty alien to you. I’m 
going to ask you to take it on faith for now. We'll talk 
about “while” loops later on in this article. 

Line 13 marks the end of the function. 

The Golden Moment. 

We've now stumbled upon the perfect time to dis- 
cuss structured programming techniques. 

Our function main() is constructed so that anyone 
can easily see what’s going on. Each function call 
performs a logical step in the sequence of actions that 
must be completed to utilize the sort. 

This type of construction matches the way people 
think. When you’re going to make a lunch of beans 
and hot dogs, you don’t consciously dwell over all 
the details in each step. Your thoughts would run like 
this: “First heat the beans, then boil the hot dogs and 
put them in the buns.” 

But you have to remember details: what about tak- 
ing the pans out of the drawer and placing them on 
the stove? Don’t forget, you’ve got to open the can 
before you can get to the beans. And where did the 
hot dogs come from? Did you open the refrigerator? 
Who turned on the stove? 

We don’t worry about these minor details, because, 
if we did, wed get so confused we'd starve. A 
programmer should think in this same structured 
way. Projects that seem impossible when you're 
mired in details become a snap when viewed from 
a more general viewpoint. It’s the old bit about the 
forest and the trees. 

It’s this form of thinking that’s the essence of struc- 
tured programming. To get our sort routine working, 
all we have to do is find out how many items there 
will be, get the items, sort them, then print them out. 
At this point, we’re not concerned about how we're 
going to do each of these steps. One thing at a time, 
slow and easy. 

When we have the general logic worked out, then 
we can get into the details, taking each step and writ- 
ing a function to accomplish it. In large programs, 
this process becomes even more important. Using 
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structured techniques will make your job much eas- 
ier and will result in very readable code. 


Back to the program. 

Line 14 is a function name. This is the func- 
tion called from Line 8. 

Line 15 marks the start of the function. 

Line 16 declares the variable n as type integer. 

Line 17 sets n equal to the value of MAX +1, 
or, in this case, 11. 

Line 18 is the start of a “while” loop. 

This type of loop will repeatedly perform a 
statement or series of statements, as long as the 
expression within the parentheses is true. Here 
are some other examples: 


while (x = 13 
While (z > 2 && ch != 'e"} 


The second line is read: while z is greater than 
2 and ch doesn’t equal the letter e. C uses some 
unusual character combinations for operators. 
The double ampersand is the equivalent to BAS- 
IC’s AND. The != is the symbol for “not equal 
to.” It’s the opposite of another operator we learn- 
ed a while back, = =. Remember the difference 
between == and =? 

We're using a while loop here to insure the in- 
put of a value no larger than MAX. Looking back, 
Line 17 initializes the variable we're using in the 
conditional expression to a value greater than 
MAX. If we didn’t do this, we might not get a 
chance to enter our number. Whatever was in n 
would be used to evaluate the conditional ex- 
pression. 

If it was less than MAX, the loop would be 
skipped and whatever value n happened to con- 
tain would be passed to the program. If you don't 
initialize your variables, they’l!l contain whatever 
value happened to be in the address they were 
assigned. 

Line 19 marks the beginning of the statements 
within the while loop. Whenever a loop will con- 
tain more than one statement, the start and end 
are marked with the left and right brace, just like 
a function. The braces are not necessary if a loop 
contains only one statement. Here’s an example 
of a single statement while loop: 


while (x ¢ 5) 
x= x * 15 


Line 20 prints a prompt. 

Line 21 accepts a number from the keyboard 
and assigns it to n. 

Line 22 prints a blank line. 

Line 23 marks the end of the loop. At this 
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point, the value of n is checked, and, if it’s greater 
than MAX, the loop repeats. This will continue 
until the user enters a number less than MAX. 

Notice the indenting of the statements that 
make up the loop. This isn’t required, but makes 
your programs much more readable, by clearly 
delineating the body of the loop. 

Line 24 introduces you to the “return” state- 
ment. Whenever a return is encountered, con- 
trol is passed back to the calling function, along 
with the value in parentheses. The return may 
be anywhere within the function. If you don't 
want to pass a value, delete the parentheses. In 
this case, we're sending the value n back to 
main(), where it will be stored in the variable 
num. 

The variable n in how__many/() is a local vari- 
able. It’s created when the function is called and 
destroyed when control is passed back to the 
calling function. It has no relationship with other 
variables in the program (except maybe num, 
which will get only its value). You could even 
have another n, without conflict, elsewhere in 
your program. 

Arguments in C are passed “by value” rather 
than “by reference.” This means only the value 
contained in the variable is passed, not its ad- 
dress. The original values are safe from change. 
If you want access to a variable that’s been passed 
to a function, you must pass the address with 
a “pointer.” We'll get into pointers a little later on. 

Line 25 marks the end of the function. 

Line 26 is a function name. This function is 
called by Line 9. Notice something a little differ- 
ent here? There’re two variables enclosed in the 
parentheses, which means two arguments are be- 
ing passed from the calling function. The argu- 
ment’s values will be stored in n and v, and are 
passed between the functions in the same order 
in which they appear in the function call. That 
is, n receives the value of num, and v receives 
the value of val. 

Line 27 tells get__nums() how it should inter- 
pret the data in n, an integer. All arguments 
within the function name's parentheses must be 
defined, and you must do so before the begin- 
ning brace. 

Line 28 tells the function that v is an integer 
array. We're not dimensioning the size of v, since 
it’s really the same array we dimensioned in Line 
6 (val[]). How can that be? Aren’t arguments in 
C are passed by value, not address? So how can 
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v[] be the same array as val[]? Why am I asking all 
these silly questions? 

I'll tell you why. Because I'll bet you forgot that 
an array name is an address. The contents of val are 
being passed as I described previously, but its value 
is the address of the array’s first byte. What does this 
mean to us? It means that we're very definitely go- 
ing to be monkeying with the contents of the origi- 
nal array. It’s not safely protected from our clumsy 
fingers like num is. 

Line 29 marks the start of the function. 

Line 30 declares some local variables. These vari- 
ables exist only in the function. They’re forgotten the 
second we exit. 

Line 31 gives you a look at a new looping tech- 
nique. The “for” loop in C is very similar to the 
“FOR. ..NEXT” loop in BASIC. Its syntax is the 
word for followed by three expressions, within 
parentheses, which define the limits of the loop. 
The three expressions are separated by semi- 
colons. 

The first expression initializes the loop vari- 
able. Here, we're setting X to 0. The second ex- 
pression is the condition that controls the loop. 
As long as the condition yields a true result, the 
loop will continue executing. The third expres- 
sion is the loop’s step value or reinitialization. 
Line 31 in BASIC would look like this: 


FOR H-8 TO N-i STEP i 


Of course, in BASIC we don’t need the STEP 
1, since it’s assumed. I just included it for pur- 
poses of clarity. 

What do you think of that + +x in Line 31? 
Got any ideas? This is essentially the same as 
BASIC’S X=X+1. As a matter of fact, you can 
use the latter construction in C, as well. The + + 
is an increment operator. There is also a decre- 
ment operator, --. These operators may be placed 
before or after the variable; however, there's a sub- 
tle difference. The expression + +x increments 
x before the value is used. The expression x + + 
increments x after the value is used. For exam- 
ple, let’s say that x starts with a value of 1. Then, 
z = ++x will yield a result of 2, whereas z = 
x++ yields a result of 1. 

Line 32 marks the start of the loop. 

Line 33 asks for the input of a number. The 
prompt uses the value of x to tell us the number 
of the value we're entering. 

Line 34 gets the number and stores it in the 
variable num. Note that this variable has noth- 
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ing whatever to do with the variable num 

declared in main(). 

Line 35 places the number into the array’s next 
element. In C, arrays are indexed as in BASIC. 
In our first pass through the loop, x has a value 
of 0. Therefore, the first element of the array (in 
the context of our function, the first element is 
v[0], but this is really our original array, val[0]) 
gets the first number input. As x gets increment- 
ed, each consecutive element of the array is filled 
with its appropriate value. 

Line 36 moves the cursor to the next line. 

Line 37 marks the end of the loop. 

At this point, x is incremented, and the con- 
trol statement is evaluated. If the result is true, 
then another iteration of the loop is performed. 
This continues until the loop’s condition evalu- 
ates to false. 

Line 38 passes control back to main(). There 
are no parentheses in the return statement be- 
cause we aren’t sending a value back. 

Line 39 marks the end of the function. 

Line 40 is a function name. This function is 
called from Line 10. The same arguments are be- 
ing passed as in the previous function. 

Line 41 defines the first argument as integer. 

Line 42 defines the second argument as an in- 
teger array. 

Line 43 marks the beginning of the function. 

Line 44 defines some variables of type integer. 

Line 45 initializes the variable used to evalu- 
ate the conditional expression in the while loop. 
This makes sure we enter the loop properly. 

Line 46 starts the while loop. 

Another break in the proceedings. 

Before we get too far into this function, I should 
give you a little background on the sort. 

We're going to use a “bubble” sort, one of the sim- 
plest (and slowest). It works by comparing two values 
and switching them if they’re in the wrong order. The 
next two values are then compared and, if necessary, 
switched. This continues until the last value has been 
compared. Then, if there were any switches, the loop 
is repeated. Once the process finishes without a 
switch, the sort is complete. 

The sort gets its name by the way the highest values 
“bubble” up to the top. 

Back to it. 

Line 47 marks the beginning of the loop. 

Line 48 turns off the switch flag. If this varia- 
ble retains the value of 0 through the loop that 
follows, then the sort is complete. 
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Line 49 sets up a “for” loop that will move 
through the array, element by element. 

Line 50 should be strangely familiar. This is 
C’s version of the IF. . .THEN statement. Its con- 
struction is very similar to its BASIC counterpart. 
There are two differences. 

First, the expression that follows the if is al- 
ways within parentheses. Second, don’t include 
the word then. The “if” statement body follows 
the same rules as loops do. If you have more than 
one statement, the entire block must be enclosed 
in braces. A single statement may be placed af- 
ter the if statement with no braces. 

Our if statement compares an element of the 
array with the next element up. If the first is larg- 
er than the second, the statements contained in 
the braces are executed (this is the switch). If 
they’re already in the proper order, the switch- 
ing is skipped. The next iteration of the for loop 
is then initiated. 

Line 52 is the first step of the switch. The value 
in v[x] is placed in “temp.” 

Line 53 places array element v[x +1] into v[x]. 

Line 54 places temp (originally v[x]) into 
v[x+1], and the switch is complete. 

Line 55 sets the switch flag to its true condi- 
tion, so the loop will be performed again. 

Line 56 marks the end of the if statement. 

Line 57 marks the end of the while loop. 

Line 58 returns control to main(). 

Line 59 marks the end of the function. 

Line 60 is a function name. 

Line 61 declares the first argument. 

Line 62 declares the second argument. 

Line 63 marks the beginning of the function. 

Line 64 declares a variable. 

Line 65 prints a message. 

Line 66 initiates a loop to print the sorted ar- 
ray values. 

Line 67 prints the array values using the loop 
variable as an index. 

Line 68 prints a blank line. 

Line 69 returns control to main(). 

Line 70 marks the end of the function. 


Take a breath. 

Boy, we covered a whole hunk of material this time 
around. If you’re still with me, pat yourself on the 
back. You’ve learned most of the information you 
need to write usable C programs. Next month, we'll 
get a few new tidbits and have some fun. Al 








(Listing starts on next page) 
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A c-manship continued 


Listing 1. 
C listing. 


tinclude <stdio.h> 
define MAX 10 


points 
int nun; 
int val [MAHI]; 
char ch3 


num = eta aa 
get_nuns (nun, al; 

sort (nun, valy 

output (nun, “val; 

while (ch = getcharQ) '= "\b") 3 


3 
how_many () 
. int nj; 
n = MAX + 


Ls: 
while (n >’ MAX? 
printf ("How wany numbers? "3; 
scanfc'xzd", &nd3 
printféC' n\n") 3 
return(n); 
get_nums(n, v) 
int n;3 
ii vOl; 
int x, nun} 
fer xc = Os x C np 4x) 
printf{"Enter number “4d: ", xi); 
scanfc'szd", &nunm) 3 
vEx] = nun: 
er intf CAN): H 


3 
return; 
} 


sort(n,v) 
int n;5 
ale Vl; 


int swtch, xX, temp; 


Swtch = 135 
chile (swtch == 1) 


for (x = 0; x Cn - ds t#x? 
jf © vixl > vixtsd ? 
temp 


= vixl; 
vx] = vixtil: 
vIxti] = temp; 
Swtch = i; 


} 
return; 


output(n, v) 
int nj; 
pus vl; 


int x; 


printf#fC'Sort complete !\n\n"); 

for (x = @3 x «<= m —- As 44x) 
printfe "Ad ", VEX] 23 

prantée\n\n") 

return; 
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ll the program listings in C-manship were written using the 
ST Developers Kit from Atari. Many of you who've recently 
received this package may be a little confused as to how to com- 
pile and run the programs (I know I was). For those nodding 
their heads in agreement, I’ve put together this quickie tutorial. 
The first thing you must do is create the proper batch files 
for both the compiler and linker. LOAD your text editor and type 
the following exactly as it appears here: 
cp68 “%l.c “1.4 
c068 “1.i 41.1 “41.2 “41.3 -f 
rm “41.4 
ci668 41.1 41.2 “41.8 
rm “1.1 
rm “41.2 
as68 -f -l -u “4l.s 
rm “41.8 
wait. prg 


When you're sure you've typed it correctly, SAVE it to your 
compiler disk under the name CC.BAT. 

Now clear the previous text from memory and type in this 
batch file: 
1ink68 [Cul %1.68k=gemstart, %1, gemlib, libf, osbind 
relmod %1 %1. tos 
rm %1.68K 
wait 


Check your typing well, then SAVE it to your linker disk un- 
der the name LINK.BAT. 

Now you're ready to compile any of the listings from C- 
manship. We'll use Listing 1 from this installment as an example. 


Single-drive compilation. 

(1) Use your text editor to type in Listing 1, then SAVE a copy 
under the name LIST1.C to both your compiler disk and a back- 
up disk. 

¥9) Place the compiler disk in your drive and double click the 
drive A icon. 

(3) Double click the BATCH.TTP program, and enter CC LIST1 
into the parameter window, concluding the entry by pressing 
RETURN. 

(4) After the compiler has finished, there should be a file 
named LIST1.0 on your compiler disk. Copy this file to your 
linker disk. 

(5) Place the linker disk in your drive and double click the 
drive A icon. 

(6) Double click the file BATCH.TTP, and enter LINK LIST1 
into the parameter window. 

(7) When the linker has finished, the file LIST1.TOS should 
be on the disk. This is the executable version of the program. 
To RUN it, simply give it a double click. 


Two-drive compilation. 

(1) Use your text editor to type in Listing 1, then SAVE it to 
disk under the name LIST1C. 

(2) Place your compiler disk in drive A and your source disk 
(the one you saved the program to) in drive B. 

(3) Double click the drive A icon. 

(4) Double click the BATCH.TTP program, and enter CC 
B:LIST1 into the parameter window, concluding the entry by 
pressing RETURN. 

(5) When the compiler has finished, replace the disk in drive 
A with your linker disk. 

(6) Double click the drive A icon. 

(7) Double click the BATCH.TTP program and enter LINK 
B:LIST1 into the parameter window. 

(8) When the linking is complete, your source disk will con- 
tain the file LIST1.TOS. This is the executable version of the pro- 
gram. RUN it by giving it a double click. 


The above instructions will work with all the C program list- 
ings presented thus far in C-manship. Only the filenames you 
use must be changed. 
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GEMSYSO 


A tutorial on the 
ST BASIC command 
and AES functions 





by James Luczak 





Atari’s new ST BASIC provides you with a very 
powerful command that gives you access to the en- 
tire AES (Application Environment Services) library. 
We're talking about GEMSYS(). It allows you to use 
an additional sixty-plus functions. There is a rather 
large problem, however: the ST BASIC Sourcebook 
doesn’t tell you how to access any of the AES func- 
tions. 

This article will provide you with the necessary 
information to use a handful of the AES functions. 
In the listing that follows is the BASIC code required 
and a description of the parameters used by the func- 
tions. 

We'll only be scratching the surface of the AES li- 
brary of functions. All the functions described here 
can be used in any order in a BASIC program. Many 
AES functions require a specific sequence of func- 
tion calls to create the desired end result. Those 
described here can be used independently of each 
other. They don’t have to be used in any specific 
order. 


GEM’s AES. 

Every time you boot up your computer (after the 
color show), you end up on what’s called the “desk- 
top.” The desktop is created with functions from the 
AES library. The disk icons, menu bar, drop-down 
menus, trash can icon—all were created using vari- 
ous AES capabilities. Here's a partial list of what the 
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AES functions are responsible for: 
Monitoring the mouse buttons; 
Monitoring the mouse location; 
Setting or retrieving the double click speed; 
Providing a timer; 

Creating the menu bar; 
Producing drop-down menus; 
Creating alert boxes; 

Creating dialog boxes; 
Producing shrinking boxes; 
Producing growing boxes; 
Dragging boxes; 

Creating rubber boxes; 
Displaying different mouse forms; 
Monitoring boxes; 

Sliding boxes; 

Moving boxes; 

Displaying file selector boxes; 
Creating windows; 

Providing window controls; and 
Updating windows. 


BASIC and AES Coordinates. 

When using the GEMSYS() command, there’s one 
important thing to remember: all references to X- and 
Y-coordinates made by the AES library are relative 
to the screen, while all X- and Y-coordinates referred 
to by BASIC commands (such as the LINEF com- 
mand) are relative to the output window. 

Assume, for example, that the output window oc- 
cupies the full screen. The X-coordinate 0 would be 
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at the extreme left-hand side of the screen for both 
BASIC and the AES function. The X-coordinate 619 
would be to the extreme right-hand side of the screen 
for both BASIC and AES. The Y-coordinate 0 for BA- 
SIC is at the bottom of the information line (the bar 
that runs along the top of the screen with the word 


AES Graphics Library. 





OUTPUT in the center). The Y-coordinate 0 for AES 
is at the very top of the screen (above the menu bar). 

The reason X-coordinates are the same for BASIC 
and for AES is because the output window doesn’t 
use any horizontal space to draw the border of the 
window. If, on the other hand, you size the output 





























RUBBERBOX Draws a “rubberbox.” The upper left corner of the box is fixed. By holding down the left mouse button and moving the mouse, 
you can draw boxes of varying sizes. 
BASIC CODE DESCRIPTION BASIC CODE DESCRIPTION 
1 a#=gb 6 poke gintin+4,xw xw=Minimum width of box in pixels 
2 gintout=peek(a#+12) Define integer output 7 poke gintin+6yh yh=Minimum height of box in pixels 
3 gintin=peek(a#+8) Define integer input 8 gemsys(70) OPCODE 
4 poke gintin,x x=Coordinate of box 9 Bxw=peek(gintout+2) bxw=Width of box when mouse button is released 
(upper left corner) 10 Byh=peek(gintout+4) byh=Height of box when mouse button is released 
5 poke gintin+2,y y=Coordinate of box 
(upper left corner) 
MOVEBOX Draws a box outline, moving from one position to another. 
BASIC CODE DESCRIPTION BASIC DESCRIPTION 
1 a#=gb 6 poke gintin+6y y=Coordinate of box (initial position) 
2 gintin=peek(a#+8) Define integer input 7 poke gintin+8,x1 x1=Coordinate of box (final position) 
3 poke gintin,xw xw=Width of box in pixels 8 poke gintin+10y1 yi=Coordinate of box (final position) 
4 poke gintin+2,yh yh=Height of box in pixels 9 gemsys(72) OPCODE 
5 poke gintin+4,x x=Coordinate of box 
initial position) 
GROWBOX Draws an expanding box outline. 
BASIC CODE DESCRIPTION BASIC CODE DESCRIPTION 
1 a#=gb 7 poke gintin+8,x1 x1=Coordinate of box (final size) 
2 gintin=peek(a#+8) Define integer input 8 poke gintin+10,y1 y1=Coordinate of box (final size) 
3 poke gintin,x x=Coordinate of box 9 poke gintin+12,xw1 = xw1=Final width of box in pixels 
(initial size) 10 poke gintin+14,yh1 yhi=Final height of box in pixels 
4 poke gintin+2y y=Coordinate of box 11 gemsys(73) OPCODE 
(initial size) 
5 poke gintin+4,xw xw=lInitial width of box 
n pixels 
6 poke gintin+6yh yh=Initial height of box 
in pixels 
SHRINKBOX Draws a shrinking box outline. 
BASIC CODE DESCRIPTION BASIC CODE DESCRIPTION 
1 a#=gb 7 poke gintin+8,x x=Coordinate of box (initial size) 
2 gintin=peek(a#+8) Define integer input 8 poke gintin+10y y=Coordinate of box (initial size) 
3 poke gintin,x1 x1=Coordinate of box 9 poke gintin+12,xw xw=lnitial width of box in pixels 
(final size) 10 poke gintin+14,yh yh=lInitial height of box in pixels 
4 poke gintin+2,y1 y1=Coordinate of box 11 gemsys(74) OPCODE 
(final size) 
5 poke gintin+4,xw1 xw1=Final width of box 
in pixels 
6 poke gintin+6yh1 yhi=Final height of box 
in pixels 
MOUSE Changes the mouse form to one of a predefined set. 
BASIC CODE DESCRIPTION BASIC CODE DESCRIPTION 
1 a#=gb 3 poke gintin,x x=5 Thin cross hairs 
2 gintin=peek(a#+8) Define integer input 6 Thick cross hairs 
3 poke gintin,x x=0 Arrow 7 Outline cross hairs 
1 Vertical bar 256 Hide mouse form 
2 Bee 257 Show mouse form 
3 Hand with pointing finger 4 gemsys(78) OPCODE 
4 Flat hand with extended fingers 
MKSTATE Returns the current mouse location, mouse button state and keyboard state. 
BASIC CODE DESCRIPTION BASIC CODE DESCRIPTION 
1 a#f=gb 7 kb=peek(gintout+8) | kb= Current keyboard state 
2 gintout=peek(a#+12) Define integer output 0 No key pressed 
3 gemsys(79) OPCODE 1 Right shift key pressed 
4 mx=peek(gintout+2) mx=Coordinate of 2 Left shift key pressed 
mouse’s current location 4 Control key pressed 
5 my=peek(gintout+4) my=Coordinate of mouse's current location 8 Alternate key pressed 
6 mb=peek(gintout+6) mb=Current mouse button state. 
0 No button pressed 
1 Left button pressed 
2 Right button pressed 
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window to occupy only half the screen, BASIC com- 
mands will function within it. They will not, for in- 
stance, draw a line outside of the window. An AES 
function will operate anywhere on the screen, regard- 
less of the size of the window. 


Y-coordinates are different for BASIC and AES via 
similar logic. The BASIC output window uses up ver- 
tical space drawing the menu bar and information 
line. This causes the Y-coordinate in BASIC to start 


AES Event Library. 


KEYBOARD Waits for any kind of keyboard input. 


BASIC CODE 
1 a#=gb 
2 gintout=peek(a#+12) Define integer output 


DESCRIPTION 


Standard Keyboard Code 


BASIC CODE 
3 gemsys(20) 
4 kb=peek(gintout) 


(continued on next page) 


DESCRIPTION 
OPCODE 
kb=Standard keyboard code 
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A=7745 B=12354 C=11843 D=8260 E=4677 F=8518 G=8775 
H=9032 1=5961 J=9290 K=9547 L=9804 M=12877 N=12622 
O=6223 P=6480 Q=4177 R=4946 S=8019 T=5204 U=5717 
V=12118 W=4439 X=11608 Y=5465 Z=11354 
a=7777 b=12386 c=11875 d=8292 e=4709 f=8550 g=8807 
h=9064 i=5993 j=9322 k=9579 1=9836 m=12909 n=12654 
0=6255 p=6512 q=4209 r=4978 s=8051 t=5236 u=5749 
v=12150 w=4471 x=11640 y=5497 = z=11386 
1=561 2=818 3=1075 4=1332 5=1589 6=1846 7=2103 
8=2360 9=2617 0=2864 
Space=14624 Return=7181 Tab=3849 Esc=283 Backspace=3592 
BUTTON Waits for a particular mouse button state. 
BASIC CODE DESCRIPTION BASIC CODE DESCRIPTION 
1 a#=gb 9 n=peek(gintout) n=Number of times the mouse button entered the 
2 openw 2 Open output window desired state 
3 gintin=peek(a#+8) Define integer input 10 mx=peek(gintout+2) mx=Coordinate where event occurred 
4 gintout=peek(a#+12) Define integer output 11 my=peek(gintout+4) |my=Coordinate where event occurred 
5 poke gintin,bc bc=Number of mouse clicks 12 ms=peek(gintout+6) ms=Mouse button state when event occurred 
6 poke gintin+2,mb to wait for 0 Left/right up 
mb=Mouse button to look for 1 Left down 
1 Left 2 Right down 
7 poke gintin+4,bs 2 Right 13 kb=peek(gintout+8) kb=Current keyboard state 
bs =Mouse button to look for 0 No key pressed 
0 Left up 1 Right shift key pressed 
a Left down 2 Left shift key pressed 
0 Right up 4 Control key pressed 
8 gemsys(21) 2 Right down 8 Alternate key pressed 
OPCODE 
MOUSE Waits for mouse to enter or leave a specified rectangle. 
BASIC CODE DESCRIPTION BASIC CODE DESCRIPTION 
1 a#=gb 10 mx=peek(gintout+2) _mx=Coordinate of mouse pointer 
2 gintin=peek(a#+8) | Define integer input 11 my=peek(gintout+4) my=Coordinate of mouse pointer 
3 gintout=peek(a#+12) Define integer output 12 ms=peek(gintout+6) ms=State of mouse button 
4 poke gintin,fl fl=Flag for call 13 kb=peek(gintout+8) 1 Left button 
0 Return on entry 2 Right button 
1 Return on exit kb=Current keyboard state 
5 poke gintin+2,x x=Coordinate of rectangle O No key pressed 
(upper left corner) ‘1 Right shift key pressed 
6 poke gintin+4y y=Coordinate of rectangle 2 Left shift key pressed 
(upper left corner) 4 Control key pressed 
7 poke gintin+6,xw xw=Width of rectangle in pixels 8 Alternate key pressed 
8 poke gintin+8yh yh=Height of rectangle in pixels 
9 gemsys(22) OPCODE 
TIMER Waits for a specified amount of time to pass. 
BASIC CODE DESCRIPTION BASIC CODE DESCRIPTION 
1 a#=gb 4 poke gintin+2,hi hi=High word of long value (0) 
2 gintin=peek(a#+8) Define integer input 5 gemsys(24) OPCODE 
3 poke gintin,lo lo= Low word of long value 
1 1 Millisecond 
1000 1 Second 
60000 1 Minute 
DCLICK Gets or sets the mouse double click speed. 
BASIC CODE DESCRIPTION BASIC CODE DESCRIPTION 
1 a#=gb 5 poke gintin+2,fl fl=Flag to set or get double click speed 
2 gintin=peek(#+8) Define integer input 0 Get speed 
3 gintout=peek(a#+12) Define integer output 1 Set speed 
4 poke gintin,cv cv=Double click speed 6 gemsys(26) OPCODE 
i Slow 7 cs=peek(gintout) cs=Double click speed 
2 Note: If the value in Line 5 (fl) is 0 (get speed), 
; Fast the value in Line 4 is ignored. 
| 
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GUARANTEE 
TO BEAT ANY 
ADVERTISED 


PRICE 
HARD | SOFT 


ST COMPUTERS DEGAS 
$ CALL $25 


130 XE H&D 4th 
$ CALL $65 


HABA 10 MGBYTE ZORK | 
$575 $25 


HAYES 1200 MODEM | CHECKMINDER 
$379 $39 


CITIZEN MSP10 HIPPO C 
PRINTER $39 
$265 
P/C INTERCOM 
$75 


CALL TO ORDER ALL SOFTWARE & 
HARDWARE AVAILABLE. 


WRITE TO BE PLACED ON MAILING LIST 
FOR NEW PRODUCT INFO AND 
MEMBERSHIP 
P.O. BOX 3025 
NORTHRIDGE, CA 91323 


NAT’L 1(800) 423-3444 
CALIF 1(800) 424-3444 
/MOlO7.V am (os) Rots lorey-ts]o) 


tio! 
(Fey (Ute! 


ALSO FEATURING 
ELECTRONIC MUSIC FOR YOUR ATARI 


All systems include all hardware, interface, 
cables, & user's manual with applications guide. 
MiIDITRACK 
MIDITRACK II (48K REQUIRED) $349.74 
MIDITRACK III (130 XE) 374.74 
MIDITRACK ST (520 ST) 574.74 
SESSIONS PLAYER PROGRAM INCLUDED FREE! 
CASIO CZ101 MIDI SYNTHESIZER CALL 
CALL FOR BUNDLED PRICES AND INFO. 
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h GEMSYS() continued 


22 pixels from the top of the screen (in low and medi- 
um resolution). 


The GEMSYS() demo program 
(medium resolution). 

This is a simple program. It draws an expanding 
box which ends in a rectangle in the middle of the 
screen. As you move the mouse in and out of the box, 
it exhibits all the predefined forms the mouse pointer 
can have. As you enter or exit the rectangle, the X- 
and Y-coordinates are displayed at the top of the 
screen. To exit the program, hold the left mouse but- 
ton down while entering or exiting the rectangle. 


Conclusion. 

The GEMSYS() command is a little more involved 
than its companion command, VDISYS(). Once you 
have some of the information needed, it’s not too hard 
to program using the GEMSYS() command. 

Although I’ve only presented a handful of the AES 
functions in this article, along with the demo pro- 
gram, you'll find that it’s not very difficult to use the 
AES library from BASIC. A 








Jim Luczak maintains and operates electronic tel- 
ephone switching and processing equipment. He’s 
been writing computer programs since 1979. He got 
his first Atari in 1980, and has written in BASIC, C, 
LOGO, FORTH, Action!, and 6502 assembly. He en- 
joys writing dedicated database programs. 








Listing 1. 
BASIC listing. 


1606 TRB HHGBHBRHeRHHBHRHEHE GEMSYS5 
©) DEMO PROGRAM 2268HRRRRRHHRRHeHRHHaGE 
HH 


119 BB EBBORHA ORB BABB BBHBHHHE by 
JIM LUCZAK 22BBHRBRERRHRBERRRHEHHBEHRHE 
3 


eH ‘ 


140 oo 4® 2:clearw 2: flag-O:bs-O:off 


158 atizgb 
1686 gintin= peen caoue 3° 

Defint Integer In 
170 gintout= peek (atti2) : i 

Define Integer Output 
130 a$="Hold LEFT mouse button down 
oe entering or exiting box to EXIT d 
emo" 


260 Poke gintin,320: 
x coordinate inftics size 
a Poke gintint2,75toffset:* 
coordinate initial Size 
220 Poke gintint4,2:° 
Initial wid 


t 
248 poke gintint#, a 
% coordinate final siz 
258 Poke gintintid, 25toffset:* 
Y coordinate final size 


ST-LOG 





268 Poke gintinti2,160:° 
Final width 

270 Poke gintinti4,166:° 
Final height 

286 gemsys(73):' 
Graf , growbox 


368 linef 270,25,378,25 
318 linef 376,25,378,125 
328 linef 376,125,270,125 
330 linef 276,125,270,25 
3408 gotoxy 3, i4:2a$ 


360 gemsys(79):' 
Graf mkstate 
378 mMxX=peek Cgintoutt2): * 
Current H coordinate of pointer 
380 mMYy—peek (gintouttd): ' 
Current Y coordinate of pointer 
3908 flag-8 
400 if (mx>27@ and mx¢370) and (my>2 
lige: and my{i25toffset) then flag= 


41 
METERS FOR MOUSE EVENT --------------- 
420 Poke gintint2,270:' 
X coordinate of rectangle 
430 Poke gintint4,25toffset:' 
Y coordinate of rectangle 
440 Poke gintint6,100:' 
Width of rectangle 
450 Poke gintints,100:° 
aetayt of rectangle 


46 
OUSE POINTER I5 VISIBLE -------------- 
470 Poke gintin,257: 

Show mouse forn 
488 gemsys (78): ' 

Graf , mouse 
B96 tees nore Mal 
N PROGRAM Loop ----------------------- 
5008 while bs=@ 
5186 Poke gintin, index:'* 

Mouse form 
520 gemsys (78): ' 

Graf mouse 
538 poke gintin, flag:' 

Flag for event mouse call 
548 gemsys(22):' 

Event mouse 
5508 mx—=peek (gintoutt2):° 

H coordinate of mouse 
560 ny—peek (gintoutt4);:* 

Y coordinate of mouse 
570 bs=peek (gintoutt6): ' 

State of mouse button 
580 if flag-®@ then flag=1:b$="Mouse 
ENTERED" else bee Fe gi :bS="Mouse EXITED" 
590 gotoxy 9, bS" box at these Coo 
rdinates. HK = Axe Y= "my" ue 
608 index=indextitif index)? then in 
dex=8 
ie wend 


630 Poke gintin,326:° 
X coordinate final size 
640 Poke gintint2,75toffset:' 
Y coordinate final size 
650 Poke gintint4,2:" 
Final width 
660 Poke gintint6,1:° 
Final height 
678 Poke gintint3,276:;' 
% coordinate initial size 
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680 Poke gintinti9O,25toffset:' 
¥Y coordinate initial size 

690 poke gintinti2,100:' 
Initial width 

700 Poke gintinti4d,160;' 
Initial height 

718 gemsys(74):' 
Graf _zhrinkbox 


SE POINTER IS AN ARROW --------------- 
730 Poke gintin,@:' 

Make mouse form an ARROH 
740 gemsys (78):° 

Ded mouse 


? 
N UP AND END ~--~--------------------- 
760 poke gintin,256 

770 = gemsys (78) 

780 Clearw 2:end 


ST CHECKSUM DATA. 
(see page 53ST) 


190 data 564, 146, 477, 876, 318, @, 
830, 136, 361, 827, 7 

200 data 7210, 260, 640, 668, 103, 41 
, 493, 588, 718, 809, 4530 

300 data °485,'533,'654, 554, 209, 11 
2, 688, 674, 682, 171, 4762 

@ data iss, 395, 320, 215, 426, 49 

0, 623, 937, 328, 846, 4768 

500 data 749, 552, 312, 131, 440, 47 
, 56, 156, 813, 443, 3699 

600 data 310, 57, 739, 836, 989, 222 
, 319, 408, 449, 945, 5324 

700 data 943, 892, S56, 867, 322, 49 
9, 395, 737, 939, 6415 








Atari ST Software 
MICRO C-Shell 


Unix-style Command Interpreter 
¢ Standard V/O with Redirection, Pipes and Filters + 
* Shell Scripts & Variables + Aliases * History Substitutions « 
« Runs TOS and GEM Programs = Full Set of Software Tools « 
* Easy-to-read Tutorial & Manual Included + 


$49.95 
MICRO RTX 


Multitasking Operating System Kernel 
« Runs off-the-shelf ST Programs - No Compiling + 
* Fully Compatible with TOS BIOS and GEMDOS - 


9.95 


Beckemeyer Development Tools 
592 Jean St #304 * Oakland CA 94610 
Orders and Info: (415) 658-5318 
(CA residents add 6.5% sales tax) 
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BRATACCAS 

PSYGNOSIS LIMITED 

1st Fl., Port of Liverpool Bidg. 
Pier Head, Liverpool L3 1BY 
England 

520ST $39.95 

(Medium or high resolution) 





by Clayton Walnum 





Over the years, I’ve played oodles of 
adventure games (as have we all). One 
of the hazards of this type of dedicated 
usage is that, even though the games are 
still well done and challenging, one 
tends to become a bit jaded. After all, 
each Infocom game looks much the 
same as the next. This repetition in de- 
sign is also evident in games like the UI- 
tima series. As a matter of fact, virtually 
all adventure games bear a resemblance 
to those which have gone before. 

Sooner or later, it’s bound to happen 
—boredom sets in. There are no sur- 
prises anymore. When was the last time 
you booted up an adventure game and 
said, “Wow!” when it came up on the 
screen? 

So, when I say I was stunned by this 
new import from England, it should be 
a clue to you that something significant 
is going on here. 

The story goes like this. ..You’re 
Kyne, a genetic scientist who's discov- 
ered a process for the creation of a su- 
perbeing. The government decides that, 
rather than use these beings for peace- 
ful causes, it would be a great idea to 
set up an army trained to kill. Kyne, be- 
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ing of a nonviolent bent, refuses to pass 
his research on to the authorities and 
goes into hiding. 

The government doesn't find this to 
be an adequate solution to their differ- 
ences. They immediately place a warrant 
on Kyne’s head, accusing him of selling 
his studies to the underworld. Of course, 
the underworld does have an interest (an 
understatement) in Kyne’s_ research. 
They figure that, “Hey, he’s on the run. 
Maybe we can get him to work for us.” 

And so, Kyne finds himself pursued 
by both extremes of the law (or perhaps 
they’re really quite similar). 

Escaping from Earth, Kyne makes his 
way to a small mining asteroid where 
he’s heard that evidence attesting to his 
innocence exists. The name of the aster- 
oid? Brataccas. 

Playing Brataccas is like stepping 
right into a comic book, getting that 
chance every kid dreams of—to become 
the hero. Each character is detailed and 
lifelike in movement. 

As the citizens of Brataccas make 
their way about the asteroid, they ex- 
change pleasantries (or nasty remarks, 
depending on who's doing the talking). 
In the comic book tradition, word bub- 
bles appear over the characters’ heads 
when they speak. These bubbles follow 





them as they stride onto or off of the 
screen, allowing plenty of time to read 
their contents. 





Brataccas. 


Quite honestly, this game looks so 
great you don’t even have to play. Just 
slap it into movie mode, sit back and 
watch. . .Saturday morning cartoons! 

When you get ready to play, you may 
control Kyne in one of three ways. The 
default control mode is with the mouse 
(natch). The two other possibilities are 
joystick or keyboard. Should you choose 
to send Kyne on his way from your key- 
board, the program allows you to define 
the keys you wish to use, a nice feature. 

Be forewarned. Due to the large num- 
ber of possible movements, manipulat- 
ing Kyne can be a bit clumsy at first. Be 


ST-LOG 





bec eg 


patient. With a little practice, you'll 
soon be running and jumping with the 
best of them. I found that, of the three 
control methods, the joystick worked 
best for me. 

The gameplay consists of moving be- 
tween rooms (or on the surface of the as- 
teroid), gathering clues, bribing the 
inhabitants for information and gener- 
ally trying to stay out of trouble. You 
must keep a low profile while you search 
frantically for your salvation. 

Should you run into serious difficul- 
ty, you’ve no choice but to draw your 
sword and battle it out. When fighting, 
there are various thrusts and parries 
available to you. The action is quite life- 
like; when you become skilled with 
your weapon, the battles can be surpris- 
ingly exciting. 

Beware: most of the swordsmen in 
this game know their stuff. If you’re not 
careful, you’ll find a word bubble over 
your head with the exclamation 
“Arrrrgggggg!” —which means it’s back 
to the start of the game for you. 

The safest way to deal with people on 
Brataccas is with your sword undrawn. 
If you have a money bag or a bottle of 
the asteroid’s best, you can get a lot of 
information from the Snitches. These 
guys hang around the bars waiting to 
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trade their knowledge for a little of that 
green stuff or perhaps a good stiff drink. 
Brataccas is a neat place. Scattered 
throughout the rooms are all sorts of 
gadgets, such as rotating cameras (Big 
Brother is watching you. . .) and video 
screens where a game of Space Invaders 
is frequently interrupted for important 
news flashes. On Tannoys (speakers) you 
can listen to police broadcasts. There are 
switches to turn various items on and 
off, not to mention Electro Bombs, mon- 
ey bags, bottles of booze, scrolls, IDs 
and, of course, the evidence itself. 
There are about sixteen different 
characters on Brataccas, each with their 
own distinctive appearance and person- 
ality. One of my favorites is Commander 
Stopp, the chief of police, who lost his 
legs in a laser fight and now moves 
about in a jet-propelled hover dish. 
Other characters consist of the afore- 
mentioned Snitches, the ubiquitous po- 
lice, several bar owners, guard droids, 
assassins and the evil Kol Worpt, Bratac- 
cas’ arch-villain in residence. They all 
move about freely, and you never know 
where or when you're going to bump 
into someone significant. 
The manual is attractive, sporting a 
cover by one of my favorite artists, Roger 
Dean (all you Yes fans will immediate- 


ly recognize his distinctive style). The 
text, printed on slick paper, is well writ- 
ten and, many times, downright funny. 
These people definitely have a sense of 
humor. Wait until you see the hint sheet 
on page 27. 

Besides all the funny business, the 
game’s functions are accurately describ- 
ed, and the story background is a quick, 
fun read. As an added convenience, the 
rear of the manual contains a pocket for 
storage of the disk, which makes the 
package easy to keep together on a book 
shelf. 

Also included in the package is a 
poster of the cover art. It’s a nice little 
plus that goes well beyond the call of 
duty. 

Psygnosis should be congratulated on 
a fine effort. I can’t wait to see what 
products they’ll be bringing to the mar- 
ketplace in the future. If this game is any 
indication of what's in store for ST ad- 
venturers, then there are exciting times 
ahead. What can I say? Buy it. A 
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STylish Software 


No question about it, the new Atari 520 ST™ is a 
remarkable computer. And nothing complements a great 
computer better than great software and great peripherals. 


HabaWriter™. A full-function word processor, featuring 
windows for simultaneous multiple document editing as 
well as pull-down menus for fast access to program 
commands. Advantageous use of the mouse means never 
having to memorize cryptic commands again. HabaWriter 
is the word processor your 520 ST has been waiting for. If 
you do any writing at all, take a look at HabaWriter. 
Suggested Retail: $74.95 


Habadex PhoneBook™ is the elegant way to store phone 
numbers. And it not only stores numbers, but it can dial 
them as well. It works and looks just like the flip-up phone 
book that you’re used to. Long distance services like MCI 
and Sprint can be automatically dialed so you don’t have 
to. The PhoneBook can sort on any field, is versatile 
enough to handle other types of information and can even 
print mailing labels. (Automatic dialing requires either a 
HabaModem™ or any Hayes™ compatible modem. ) 
Suggested Retail: $49.95 


The new HabaDisk™ 10 Megabyte hard disk for the 520 
ST is a Winchester plug-in hard disk that is capable of 
storing the equivalent of more than 12 dual-sided 800K 
diskettes and retrieves information in seconds (3 msec. 
track-to-track access time). It is self-powered and 
completely Atari ST compatible (including Atari Desktop 
and GEM™ DOS). Suggested Retail: $699.95 


Also available for the 520 ST: 

Haba Checkminder™—Suggested Retail: $74.95 

Haba Mail Room™—Suggested Retail: $74.95 
HabaMerge™—Suggested Retail: $39.95 

Solutions: Wills™—Suggested Retail: $49.95 

Solutions: Business Letters™—Suggested Retail: $49.95 





520 ST is a trademark of Atari Corp. HabaWriter, Habadex PhoneBook, HabaModem, HabaDisk, Haba Checkminder, Haba Mail Room , HabaMerge, Solutions: Wills, and Solutions: Business Letters are trademarks of Haba 
Systems, Inc. Hayes is a trademark of Hayes Microcomputer Corp. GEM is a trademark of Digital Research, Inc. 





6711 Valjean Avenue 
Van Nuys, CA 91406 
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MI-TERM 
MICHTRON 

576 S. Telegraph 
Pontiac, MI 48053 
(313) 334-5700 
520ST $50.00 





by Arthur Leyenberger 





In the six months the Atari 520ST 
computer has been available, one com- 
pany has stood out as having the most 
complete line of software for it. It’s one 
thing to have an extensive line of soft- 
ware, but if the software isn’t up to par, 
then the distinction becomes moot. 
MichTron, a small Michigan software 
company, holds this honor—and well it 
should, since all of its products are qual- 
ity efforts. 

MichTron entered the ST software 
sweepstakes with the first arcade game, 
Mudpies, and has since concentrated 
mostly on utility software. I’ve been us- 
ing M-Disk (ramdisk) and M-Utilities 
(sector and disk copier) for several 
months. Now MichTron has entered the 
application market with their new tele- 
communications program, Mi-Term. 

The first thing you notice about Mi- 
Term is that it uses the familiar GEM 
features, like drop-down menus and di- 
alog boxes. Naturally, selecting options 
is performed by pointing and clicking 
with the mouse. In addition, any previ- 
ously loaded desktop accessories—a 
calculator, the control panel or printer 
driver—are available from within the 
program, as they should be in a proper- 
ly designed GEM application. 

Mi-Ierm is truly a full-featured tele- 
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communications program. In addition to 
providing simple two-way communica- 
tion capability between a variety of com- 
puter systems, Mi-Term allows you to 
automate your log-on procedure, as well 











Co) Geen) 








Mi-Term. 

as your most frequently used commands 
and ASCII uploads, to conserve valuable 
connect time. Any number of custom 
configurations may be saved as indivi- 
dual files and loaded whenever you 
want them. This avoids repeated setups 
and allows an expert user to design a 
system that a beginner can easily follow. 

Mi-Term supports two different error- 
checking protocols for flawless file 
transfer: DFT and XMODEM. Eight 
different operating speeds (up to 9600 
baud) may be used, and an automatic 
capture buffer is provided. The buffer 
file may be changed at any time. Its cur- 
rent name is always displayed on the Mi- 


7 REVIEW 


Term menu bar, and the contents may 
be viewed whenever you wish. 

One useful aspect of this feature is the 
visual indicator that shows how many 
characters have been saved into the buff- 
er. There’s a bar along the bottom of the 
screen, much like a GEM slider bar, 
which shows the percentage of memo- 
ry buffer currently in use. As more char- 
acters are added to the buffer, the bar im- 
mediately displays the change. 

One of the features that makes Mi- 
Term an outstanding program is its so- 
called macro capability. Up to fifty-six 
individual command strings can be as- 
signed to unique keys. The twenty-six al- 
phabetical keys are used with the AL- 
TERNATE key, and function keys F1 to 
F10, are used individually, as CTRL-F1 
to F10 and as ALT-F1 to F10, to provide 
what MichTron calls “presets.” The defi- 
nitions of these presets are saved in the 
Mi-Term configuration files for future 
use. 

With the presets menu from the top 
menu bar, you can view, change or add 
new character strings to your function 
keys. An extensive set of options is avail- 
able with this feature. The various spe- 
cial functions available within the preset 
strings are implemented by imbedding 
certain control sequences (displayed on 
the screen for ease of use) in the preset 
string. Waiting for certain characters 
from the host, setting character and line 
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7/ 


delays, toggling the screen—or just 
some of the functions—on and off. 

There are too many options to de- 
scribe here, but basically you have the 
ability to build macros that will work 
with any on-line computer system ima- 
ginable. As a thoughtful and useful 
touch, MichTron has provided several 
files on the distribution disk, showing 
previously created presets for such pop- 
ular on-line services as CompuServe, 
Delphi, MCI Mail, etc. 

Uploading can be performed in either 
DFT or XMODEM protocols. To upload 
a file, you simply click on the protocol 
desired, at which time a dialog box ap- 
pears, listing the files on the disk. Once 
you've clicked on a file, another dialog 
will appear on-screen, showing the 
name of the file selected and the total 
number of blocks required to send it, 
along with the message awaiting hand- 
shake. 

Once communication with the remote 
system begins, Mi-Term constantly in- 
forms you of the block number being 
sent, the percentage of the file already 
sent, and the percentage of blocks sent 
that did not require retransmission (er- 
ror-free rate). Also displayed are the 
number of re-tries for the current block 
in progress and any messages relevant 
to the upload. Again, the quality of the 
program is apparent— when the upload 
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is complete, the computer will beep at 
you as a signal. 

Downloading is as straightforward as 
uploading. You would select either X- 
MODEM or DFT protocol, and a dialog 
appears listing the files on the disk. 
Point and click at a filename or type in 
a new one, to begin the download. The 
same dialog box is used as in the upload 
mode, to monitor the progress of the file 
transmission. 

To download an ASCII file, no special 
protocol is necessary. Either open and 
close the capture buffer manually to re- 
ceive ASCII text, or, if the remote sys- 
tem supports the capture buffer transfer 
mode (also known as DC2/DC4), it will 
be done automatically. 

Finally, you can use the options menu 
to edit, load and save Mi-Term’s options 
and parameters. Some of the options you 
can select are: dump incoming text to a 
printer; toggle the screen on and off; tog- 
gle a character filter on and off, to strip 
out unwanted control codes; select one 
of three line feed modes, to add or not 
add a line feed to each incoming car- 
riage return character; toggle the clock 
display on and off and reset it; and send 
a true break. 

You can change your RS-232 para- 
meters (parity, baud rate, number of stop 
bits, etc.), in order to suit the remote sys- 
tem you're communicating with. This is 


done by calling up the dialog box and 
clicking the mouse button on your 
choices. Information about the current 
status of Mi-Term and the RS-232 port 
is always displayed in the status line, just 
beneath the menu bar at the top of the 
screen. Functions that are active are dis- 
played in black on the white back- 
ground, whereas inactive functions are 
shaded in gray. 

Overall, Mi-Term is an excellent tele- 
communications program. Kudos should 
be given to the author, John Weaver, for 
not only creating a useful program, but 
designing it in such a way as to be easy 
to use. If you want or need more features 
than are provided in, say, ST-Talk, yet 
don’t want to spend a $100 for PC/Inter- 
com and get only a text-based program, 
then you should seriously consider 
MichTron’s latest product. 

Further, all of the commands and op- 
tions work with the intuitiveness of the 
GEM interface—point to the desired 
menu name, it drops down, and you 
point and click on the command. I can’t 
think of an easier, more feature packed 
program than Mi-Ierm. A 
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aD om  aanisine ) READER SERVICE # ADVERTISER PAGE # 
520ST (512K Memory) Monochrome Package 
S208T (512K Mamoty) RGB: Color E 118 Abacus Software..................... 50ST 
520ST 1024K Memory Uparee (Includes ee ee su i 
520ST ROMS 25.00 SF314 Double Sided Drive . : 
Atari 130XE $138, 00 Atari XM301 Modem f 131 Applied Computers, Inc................ 82ST 
Omniview XE/XL sa . nlled occas be ae — 
130XE With Omniview XE/XL Installed (with dual operating system) \. ; 
Newell 256K Upgrade for the 800XL (Includes Mydos 4.1) 132: Alar COn es 0.9 scecea sncinsmacriare ses sacs 83ST, 84ST 
Newell 256K Sector Copier (800XL/130XE) 
Ramrod XL/XE (includes Omnimon) 128 Beckemeyer Development Tools ........ 75ST 
Happy 810/1050 rie Gate i Basieupiy 
1050 Duplicator (The Ultimate Disk Backup 
Happy 1050 Disk Deve (1050 Happy Enhancement Installed) . 130 GAL BOI a5 ies ssi Ssessonrat asda sand adiolsat Bop ne 82ST 
ICD P:R: Connection Interface Module : ae 
ICD R-Time 8 Cartridge 4 
ICD Doubler with Sparta DOS Construction Set! $ 45.00 127 Coast to Coast Computers............. 74ST 
ICD US Doubler Installed in New 1050 Disk Drive) $199.95 
Atari 850 Interface (In Stock) ...-$109.95 121 Commnet Systems Oecd eiaue area 55ST, 82ST 
Supra Microprint Printer Interface Pe ae 4 meee 
Supra 1150 Printer Interface ian’ al ‘ 
Volksmodem 12 (300/120!) Includes ST or 850 Cable $199.95 129 EugWWaba 2:37 45 auiwe se ras var wa 78, 79ST 
Star Gemini 10X Printer (520ST or 8 Bit Compatible) $189.95 
Star SG-10 Printer (520ST or 8 Bit Compatible) $249.95 425 Martin Consulting PRON se SoA ne heat! 66ST 
ST-Copy (Fastest copy program available) Backs up all Atari 520ST 124 Megamax, INC. oo eee 59ST 
Software to date! Dealer “iglesias 
FoReM ST (BBS Program for the ST!)......... 0.00 eee cece eee eee H 
ST-Term (Version 1.1) i 120 MEGESOME . a- saciers tis Gata pees aa ew eve 54ST 
Zoomracks 
Aeety mE SRS 119 Progressive Computer Products......... 52ST 
Bratacas re H 
Compulsive Copier (Dealer inquiries welcomed) H 126 Regent Software............---222 05. 66ST 
$ 49.95 Basic XL 7 139 Rocky Mountain Atari Service .......... 82ST 
FoReM XE (Version 1.2A)....$ 50.00 Action/ MAC/65 Cartridges .. . y ; 
CUSTOM BBS PACKAGES AVAILABLE UPON REQUEST, CALL FOR INFO! 122 Serious Software ................222. 55ST 
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FACTORY AUTHORIZED NETWORK 


EXTENDED SERVICE CONTRACTS 
SALES * CONSIGNMENTS ¢ TRADE-INS 


TO FIND THE SERVICE CENTER NEAREST YOU 
NATIONWIDE — Dial: 1-800-66-ATARI 
INCOLORADO_— —__ Dial: 1-800-55-ATARI 
DENVER/BOULDER Metro — Dial: 44-ATARI 


VISIT ELECTRIC LAND: 303/447-ABBS 
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Authorized ATARI 52OST Dealer 
TOLL FREE 


er LOLOk- NEN Ts 


(1-800-428-2747) 


FoReM ST 


The Last Word in Atari” Bulletin Board Systems 


©1985 Matthew R. Singer 


APPLIED COMPUTERS, Inc 
16220 Frederick Rd. 
Gaithersburg, MD 20877 


Terms: Visa/MC/Cholce/Amex.Prepald orders ship- 
ped free.COD orders accepted.All orders shipped 
UPS. Open 7 days a week. MD residents add 5% 
sales tax. 
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Commnet Systems- 7348 Green Oak Terrace, Lanham MD 20706-301-552-2517 
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THE ST COMPUTER LINE 
FROM ATARI. 





IT’S LIKE GETTING THE POWER AND SPEED OF A FERRARI" 
FOR THE PRICE OF A FORD. 


When Atari introduced the 520ST™, 
we set the personal computer industry 
on its ear. 

Nobody had ever produced a machine 
so powerful and technically advanced 
for such an incredibly low price. 
Nobody but Atari has done it yet. 

The competition was stunned. 

The critics wrote rave reviews. 

- And consumers were ecstatic. 

We could have rested on our laurels, 
but we didn't. 

Instead, Atari extended the ST concept 
to. a new computer called the 1040ST™. 

The amazing new 1040ST is even 
more powerful than the 520ST and 
years ahead of all the competition at 
almost any price. The only question in - 


ATARI® | COMMODORE © IBM® APPLE® APPLE lic® 
1040ST* AMIGA™ PCAT™ | Macintosh™ 


Price $999 $4675 $1995 $1295 
CPU : 68000 68000 80286 68000 e502 
Speed MHz 7.16 6.0 7.83 


Standard RAM im 256K 256K ea 


Standard ROM ee 16K 
Number of Keys 63 
Mouse ie S32 425 Optional 


Screen Resolution 
(Non-Interlaced Mode) 


Color 640x200 }640x200* 640x200 None 560x192 
Monochrome 640x400 }640x200* +|720%350"* 512x342 560x192 


Color Output Yes wes 

Number of Colors 512 |__4096_| |_None_| 

Disk Drive 3.5" ee eee 5 z ‘ 
Built-in Hard Disk 

(DMA) Port Yes No Yes No No 

Midi Interface Yes No 

¥ of Soundvoices 3 | 4] 1 | 4 | 1 


Atari 520ST with 512K RAM, $799. 


"Connects to standard color TV. For RGB color monitor add $200. 
**With optional monochrome board (non bit-mapped). 
***Interlace Mode - 640x400. 


Ferrari is a registered trademark of Ferrari Italia SpA and Ferrari of 
America, Inc. Ford is a registered trademark of Ford Motor Company. 
IBM and PCAT are registered trademarks of International Business 
Machines Corp. Commodore and Amiga are trademarks of Com- 
modore Electronics LTD. Apple, Apple Ic, and Macintosh are 
trademarks of Apple Computer, Inc. Atari, 520ST, 1040ST, and ST are 
trademarks of Atari Corp. 


1986 isn’t which 
company to buy 
a computer 
from, but which 
computer to buy 
from Atari. 

At $799, the 
520ST gives you 512 Kbytes of RAM, a 
high-resolution monochrome monitor, 
2-button mouse, and 3.5” disk drive. 

At $999, the 1040ST gives you 1024 
Kbytes of RAM, an ultra high-resolution 
monochrome monitor, 2-button mouse, 
and a built-in double-sided 3.5” disk 
drive, plus built-in power supply. Both 
the 520ST and the 1040ST can be con- 
nected directly to your own color TV. 
Or you can add an Atari RGB color monitor 
to get the sharpest, most colorful images 
possible. Add $200 for color monitor. 

It’s simply a matter of choosing which 
model best fits your needs. 

And whether you choose the 520ST 
or the 1040ST, you'll be getting the 
power and speed of a Ferrari for the 
price of a Ford. 

In fact, you'll save hundreds and in 
some cases thousands of dollars over 
comparable computers. Which is why 
consumers are still ecstatic. Why the’ 
critics are still writing rave reviews. 
And why the competition is still stunned. 


A ATARI 


POWER WITHOUT THE PRICE.” 
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